INTELIGENCIA ARTIFICIAL 


Conceptos y programas 


Inteligencia artificial 


Conceptos y programas 


Tim Hartnell 


Z 


ANAYA MULTIMEDIA 


MICROINFORMATICA 


Título de la obra original: 
EXPLORING ARTIFICIAL INTELLIGENCE ON YOUR MICROCOMPUTER 


Traducción de: Pilar Vázquez 
Diseño de colección: Antonio Lax 


Diseño de la cubierta: Narcís Fernández 


Reservados todos los derechos. Ni la to- 
talidad ni parte de este libro puede re- 
producirse o transmitirse por ningún 
procedimiento electrónico o mecánico, 
incluyendo fotocopia, grabación magné- 
tica o cualquier almacenamiento de in- 
formación y sistema de recuperación, 
sin permiso escrito de Ediciones Anaya 
Multimedia, S.A. 


(O Tim Hartnell, 1984 


Publicado por primera vez en 
Gran Bretaña por INTERFACE PUBLICATIONS 


O EDICIONES ANAYA MULTIMEDIA, S. A., 1985 
Villafranca, 22. 28028 Madrid 
Depósito legal: M. 8.165-1985 
ISBN: 84-7614-014-2 
Printed in Spain 
Imprime: JOSMAR, S. A. 
Artesanía, 17. Polig. Ind. de COSLADA (MADRID) 


Indice 


PLOLACIO ti AS A ti da aarEó 11 


Sección primera: EL PENSAMIENTO 


1. Aprendizaje Y razZONAMIEnto ........oooococcncnnnanan ono 15 
Retroalimentación (Feedback) ...........oooooooocmmonommmmmom.9.9m.o.. 17 
¿Cómo piensan las Máquinas? .........o.ooooooccroccroccroccroca o 17 
Interruptores y decisiON€S .........ooo.oooooooccoocrrcrrco roo 18 
Puertas lógicas “reales” ii da is 21 

2. Un programa que aprende .......o..ooooccoccccccccccconcnnanon 2S 
Samuel y el tablero de damas ..........o.oooooccococrorrcnrccr co 27 
El programa de TICTAC. ¿ui a daa ciaie dea 28 

3. Un programa que FQAZOMA ....oooococccccccncnc cnn 39 
El programa de SILOGISMOS ....oococcoccccnccrcorc rr 44 


Sección segunda: LA INVESTIGACION 


4. 


ALDOTES Y RISTTAS: 0 SA AN AA A 53 
¿Por qué se les llama árboles? ........oooooooccocccoononnrrr rr 53 
“Procesado paralelo?” 0000 as rai an a da ie 54 
DeESApariciONES sia, A Se AT 56 
En profundidad ++ostusirt cba 58 
MINDEMA nad A AAA o ds 59 
Elementos; de DESO: cerciorarse ca 63 
El algoritmo-alfasbeta .«otioio sacos pida o Pa 65 
Cómo funciona el prograMa .......oooccoooccccnnccnnnn occ 74 
Eistado:de:RISITAS. ¿uscar ae at o aa 81 
El Valor de (OS. JUELOS comicios A A de 89 
Las complejidades del mundo real ..............o.ooooooocmoomommom.... 90 
Otros juegos, Otras lecciONesS ..........oooooocoocorcrrcrrcnorarcan ro 91 


Sección tercera: EL HABLA 


6. 


La comprensión del lenguaje natural ....o.oooonononoccccccccccos 95 
Análisis del lenguaje ...............ooooooocoooccorrrrrnconnnao naco cos 96 
PTODIEMÁS: Vii A A A AA tard A ad 98 
SINtaxiS Y ¡SeMÁNÍICA: ocios ct ir ted opta 98 
BEOQUELANDIA: iia AR aos 103 
El funcionamiento «10 a a a 106 
Módulos del programa .........ooooccccocccnnocccrr rr A E | 
Listado de BLOQUELANDIA .....o.oooccocccoccccccncco rr 120 
Para mejorar el programa ........o.ooooooccoccconccnccnoccon ro 125 
EEDÍATCO: EA COSA a AAA 129 
La: CONEXIÓN FUÚSA: 000 AA A dt 131 
““ShockKs”” DIeves Y AgUÍOS cecilia a 132 
ENPIOLTAMA a 133 
PUNCIONAMIENCO 200000 A a Ad 136 
El banco «de TESPUÉSTAS: +00 aa a lada 137 


10. 


La estructura del prograMa .......oooooocooccooccnornronr o 140 


La utilización del “*mibandera”” (señalizador) .............oooooomoo.... 143 
Listado: de: DOCTOR ii aa 144 
Traducción por MÁQUINAS ......ooooooccoccccncononcccananc nc 153 
SUTUSO ii TAS A E A 153 
“Spanglish” ................ AAA A aros 156 
Estructura del prograMa ........oooocoocooccorocccno co 157 
Listado de TRADUCTOR ...0ccoooccccoccccnccccco rc 160 
HANSITAN is yA AE EA A 165 
El listado de HANSHAN ....o.oooccoccccocccoccocc 167 


Sección cuarta: LA AYUDA 


11. 


12. 


¡ES 


SISTEMAS OXDEDOS a EEN SRA AAA 171 
Limitaciones: 100 AL AD a dc 173 
Estructura química y DENDRAL ........o.ooocccoccncccnccnncc oo 174 
Pequeño GRAN ESFUERZO .....oooccccccccccccnccnnnnnnnno 177 
Listado de GRAN ESFUERZO .....ccccocoocoocccccccccc rr 180 
Pequeño GRAN ESFUERZO-X .....o.oocccccoccccccnncccc nro 181 
Listado de GRAN ESFUERZO-X .....occococccccoccccnno ro 190 
La elección de un Microprocesador .......ooo.ooocoooccrcccnrcccnccooccoo 192 
Listado del programa ..........oooooccccnoornocorrorocccan cc 195 
Sistemas que aprenden SOÍOS .........oooooccccccccccccnancccnos 199 
COMO TUNCIONA: ii AS A AAA 201 
Listado de APRENDE-SOLO ......occccccccococcoccc rr 204 
Más de dos alternativas ...........o.ooooooocrrcrcrnacnncoonanocaoo cos 205 
Eistado: del PLOSTAMA indi e ici 208 
SIN COTTOCCIÓN ii A A A ta ES 210 
Listado de MULTI-APRENDE-SOLO 2 ....o.occccococococccorrrr rro 212 


Apéndices 


apo 


Algunos consejos para mejorar las técnicas de programación ............... 215 
Sugerencias bibliOgráficas .............o.ooooooooorcmorrarrrarrcaaa ccoo 223 
Glosario de términos informáticos y de inteligencia artificial ............... 231 
Programas para el ZX SpectruM .......ooo.ooocococcocnno rr 239 


Todos los listados son compatibles, tanto con el lenguaje BASIC 
Microsoft como con el BASIC MSX, y se pueden ejecutar en la mayo- 
ría de los microordenadores, incluyendo el Commodore 64, el BBC, el 
VIC 20 (algunos programas exigirán memoria extra), el Dragon 32, el 
Oric, el TI 99/4A con BASIC ampliado, el TRS-80 (en todos sus mo- 
delos, aunque se necesitará memoria adicional en el MC-10, en el caso 
de algunos programas), el Apple II, el IBM PC y muchos otros más. 
La manipulación de cadenas es la estándar del Microsoft, de modo que 
algunos ordenadores necesitarán ciertas modificaciones en este sentido. 
El Apéndice 4 contiene los listados para el ZX Spectrum y Spec- 
trum +. 


Prefacio 


Estás a punto de lanzarte, querido lector, a una aventura fascinante en un reino en 
donde se difuminan las barreras entre el hecho científico y la ciencia ficción. 

Desde que salieron a la luz los primeros ordenadores, se ha venido librando un conti- 
nuo debate, angustiado a veces, en torno a temas tales como: 


— ¿Puede la máquina pensar realmente? 
— ¿Cuál es la naturaleza de la inteligencia?, y en relación con esto, ¿se llegará 
alguna vez a construir una máquina que pueda participar de esa inteligencia? 


Cuando hayas hecho tuyo este libro, te sentirás capacitado para tomar parte activa 
en el debate y con autoridad para hacerlo, además. Porque en este libro vamos a investi- 
gar el mundo apasionante de la inteligencia artificial repitiendo algunos de sus progra- 
mas más famosos. 

Cubriremos gran parte del campo, desde los programas que aprenden y razonan a 
aquellos que te hablan, te obedecen o te aconsejan. 

La escritura de este libro, ha sido una experiencia fascinante. El leer la extensa 
bibliografía existente, el llegar a familiarizarme con las aspiraciones de los pioneros de la 
inteligencia artificial y el escribir programas que —admitámoslo con toda crudeza— per- 
mitían repetir en un miniordenador algunos de sus descubrimientos más importantes, re- 
sultó ser un ejercicio extremadamente interesante y placentero. 

Espero que este libro transmita al menos algo de la fascinación que yo experimenté y 
que tú, lector, sientas la misma emoción que yo sentí al ejecutar los programas. 


Tim Hartnell 
Londres, 1984 
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Algunas indicaciones previas: Todos los programas han sido escri- 
tos utilizando un subconjunto del lenguaje BASIC que es compatible 
tanto con el BASIC Microsoft, como con el BASIC MSX. Los progra- 
mas utilizan Órdenes estándar Microsoft para la manipulación de cade- 
nas alfanuméricas (MID$, RIGHTS, LEFT$) que no tienen soporte en 
las máquinas SINCLAIR, sin embargo encontrarás los listados com- 
pletos para el ZX Spectrum en el Apéndice 4. Unos cuantos programas 
utilizan una variable llamada FACTORES. Si tu sistema no acepta las 
palabras reservadas (como OR en este caso) que aparecen en nombres 
variables, cambialo a FACT o algo por el estilo. Sólo las dos primeras 
letras de un nombre variable son importantes, de modo que si quieres 
puedes omitir el resto. 


Sección primera: EL PENSAMIENTO 
1 


Aprendizaje 
y razonamiento 


El continuo debate en el que nos encontramos inmersos en la actualidad gira en torno 
a la cuestión de saber si por el hecho de estar produciendo máquinas que pueden com- 
portarse de un modo que parece inteligente, nos estamos acercando realmente a la pro- 
ducción de inteligencia. Inextricablemente ligada a este debate hay otra cuestión que 
atañe a la naturaleza de la inteligencia. 

Es cierto que los programas incluidos en este libro permiten al ordenador dar mues- 
tras de inteligencia respondiendo a situaciones, tomando decisiones y actuando de acuer- 
do con ellas. Pero, sin embargo, no se sugiere en ningún momento que el ordenador sea 
consciente de sus actos. No se echa a reír ante las erróneas conclusiones a que se llega en 
DOCTOR y no puede admirar —ni siquiera reconocer— los poemas producidos por 
HANSHAN ni aun cuando le salen particularmente efectistas. 

¿Estamos, pues, justificados cuando afirmamos que estamos produciendo ““inteligen- 
cia artificial”? Yo creo que sin el tipo de percepción que reconoce cosas tales como el 
“efectismo”” de un poema o la incongruencia de una respuesta, no posos sugerir que 
nos encontremos ante ningún tipo de inteligencia. 

La inteligencia artificial está dando sus primeros pasos y pretender provocar una con- 
ciencia y una percepción reales a partir de un breve programa BASIC ejecutado en un 
miniordenador, cuando las gigantescas máquinas de estructura principal no han llegado 
todavía a arañar la superficie de este campo, es bastante poco realista. 

Hay, sin embargo, dos áreas de comportamiento, razonables candidatas ambas para 
clasificar un comportamiento como inteligente, que pueden obtenerse en cualquier orde- 
nador. Se trata de los campos del aprendizaje y el razonamiento. 


TICTAC, un programa que juega a algo parecido al TRES EN RAYA, empieza su 
vida sabiendo tan sólo cómo se gana y cómo se obstaculiza al contrario para,que no pue- 
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da mover. Carece de todo conocimiento relativo a qué jugadas ha de hacer primero con 
el fin de que sus posibilidades de ganar sean mayores. En realidad, su conocimiento ini- 
cial es tan escaso que su juego no podría ser peor. 

Pero, enfrentado a un oponente que juegue totalmente al azar (un oponente que ni 
siquiera sepa que gana la partida el que primero consiga poner tres de sus fichas en 
raya), en diez partidas más o menos TICTAC habrá aprendido el valor de mover, siem- 
pre que le sea posible, a la casilla central y habrá ordenado el resto de sus jugadas en una 
secuencia que —si bien difiere de la secuencia que tú, lector, o yo crearíamos en circuns- 
tancias similares— le permite ganar una proporción cada vez más elevada de juegos, in- 
cluso contra un contrincante inteligente, como puede serlo el lector. TICTAC fue escrito 
con la intención de mostrar el estado de su aprendizaje después de cada partida. Esto 
hace que la ejecución de este programa sea fascinante. Por otro lado, ofrece la posibili- 
dad de desarrollarlo de muchas maneras diferentes con el fin de investigar su capacidad 
de aprendizaje. 


SILOGISMOS es nuestro programa de razonamiento. Su objetivo es resolver silogis- 
mos del tipo de aquellos que todos conocemos, como: 


SOCRATES ES UN HOMBRE 
TODOS LOS HOMBRES SON MORTALES 
LUEGO, SOCRATES ES MORTAL 


Partiendo de las dos premisas iniciales, SILOGISMOS extrae una conclusión. Lo que 
es importante tener en cuenta en este programa es que SILOGISMOS puede llegar a con- 
clusiones sobre una información que no le ha sido suministrada explícitamente. 

Explicaré esto. Observemos estas dos premisas: 


UNA NOVELA ES UN LIBRO 
UN LIBRO SE IMPRIME EN PAPEL 


Aunque no se le ha dicho de modo explícito al programa que una novela se imprime 
en papel, responderá SI cuando se le pregunte: 


¿SE IMPRIME EN PAPEL UNA NOVELA? 


El lector puede pasárselo muy bien introduciendo en el programa una amplia varie- 
dad de premisas y haciéndole después todo tipo de preguntas sobre ellas para ver qué 
conclusiones puede sacar SILOGISMOS. NO TENGO DATOS, NO y NO SE se encuen- 
tran también entre las posibles respuestas de SILOGISMOS. 


Ya en los primeros momentos del debate sobre la inteligencia de las máquinas 
(““¿pueden las máquinas llegar a ser verdaderamente inteligentes?””) quedó claro que 
había que examinar detenida y minuciosamente los términos fundamentales que se esta- 
ban sometiendo a debate. ¿Qué queríamos decir realmente por pensamiento? Si no 
sabíamos de verdad lo que queríamos decir cuando usábamos este término referido a 
nosotros mismos, ¿cómo podíamos juzgar el rendimiento de las máquinas en este 
campo? 
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Este tipo de reflexión es uno de los muchos efectos que ha tenido el estudio de la in- 
teligencia artificial. El hombre se ha visto forzado a reflexionar sobre sí mismo y a exa- 
minar áreas del comportamiento humano de un modo que muy pocos hombres hasta 
ahora se habían preocupado de hacerlo. 

Unas líneas más arriba sugería que aunque es cierto que las máquinas no llegan si- 
quiera a rozar el tipo de conciencia que es un prerrequisito vital para afirmar que un 
sistema es inteligente, algunos aspectos de la inteligencia —el razonamiento y la capaci- 
dad para aprender— se encontraban, no obstante, entre nuestras capacidades presentes. 

Hay diferentes tipos de aprendizaje. Podemos aprender observando a los otros, 
leyendo, por lo que los otros nos dicen (que es un tipo de “lectura verbal””, de modo que 
los dos están muy relacionados) y “*cometiendo errores””. Los ordenadores pueden 
aprender de todas estas maneras. TICTAC aprende en gran medida cometiendo errores, 
aunque tiene cierto conocimiento preprogramado (que aumenta por medio de lo que le 
decimos). 


Retroalimentación (Feedback) 


Los errores de TICTAC carecerían, por supuesto, de sentido, si no volviera a recibir 
información (feedback) sobre sus logros o, en cualquier caso, sobre sus esfuerzos. La 
retroalimentación es un elemento vital en el aprendizaje. 

Una de las primeras máquinas “capaces de aprender”” fue la tortuga, precursora de 
una multitud de galápagos robóticos similares, construida en 1948 por Grey Walter, un 
fisiólogo especializado en el cerebro. Construyó su tortuga —media esfera que se arras- 
traba por el suelo abriéndose paso entre los obstáculos y que se iba a la cama cuando se 
empezaba a quedar sin pilas— para demostrar su tesis de que el comportamiento com- 
plejo, independientemente de lo complicado que pueda parecerle al observador ajeno, 
está basado en la interacción de tan sólo unas cuantas ideas básicas. 

La tortuga aprendía el camino utilizando feedback negativo, es decir, tendía a no 
repetir un comportamiento que no fuera productivo. Una tortuga que no aprendiera que 
el chocar repetidamente contra una pared no es la mejor manera de avanzar, no llegaría 
muy lejos. 


¿Cómo piensan las máquinas? 


Los ordenadores actuales son procesadores en serie. Es decir, avanzan de un punto a 
otro, paso a paso, estando los pasos futuros determinados por los resultados de los pre- 
sentes. El cerebro humano, por el contrario, utiliza no sólo el procesado en serie, sino 
también el procesado paralelo en el cual varias corrientes de pensamiento —conscientes 
unas e inconscientes otras— progresan a la vez. 

El proceso de pensamiento y toma de decisiones de un ordenador es en esencia 
un sendero a través de un intrincado laberinto de construcciones IF/THEN (SI/EN- 
TONCES): 


IF esto es cierto AND esto es cierto 
AND esto no es cierto THEN haz esto 
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El ordenador, por supuesto, puede tomar decisiones “OR” del mismo modo que deci- 
siones *AND”: 


IF esto es cierto OR esto es cierto 
THEN haz esto 


Pueden combinarse: 


IF esto es cierto AND esto es cierto OR 
algo más es cierto THEN haz esto 


¿Cómo lo hace el ordenador? El primer mecanismo electrónico para calcular fue 
construido (en la cocina de su casa) por George Stibitz, que trabajaba en los Bell Tele- 
phone Laboratories, en la década de los años cuarenta. Este conectó pilas, bombillas y 
algunos interruptores de teléfono con relés para calcular en términos binarios. (Este es el 
sistema de numeración que tiene sólo dos dígitos: el O y el 1. Cuando un interruptor esta- 
ba encendido se consideraba que estaba en 1, mientras que cuando estaba apagado se le 
consideraba igual a 0.) Stibitz se dio cuenta de que este tosco mecanismo, suficientemen- 
te desarrollado, podría servir para todo tipo de problemas matemáticos. (De lo que, al 
parecer, no se dio cuenta —como el lector verá enseguida— es de que los mismos circui- 
tos que estaba utilizando para sumar números binarios podían utilizarse para lograr 
decisiones.) 

No obstante, unos años antes, en 1937, Claude Shannon (que más tarde trabajaría 
también en los Bell) se había doctorado con una tesis sobre la relación entre el Algebra 
Booleana y el paso de la corriente eléctrica a través de circuitos orientados. 

El Algebra Booleana —que es donde la parte ““pensante”” de la máquina comienza 
verdaderamente— se basa en los trabajos realizados por George Boole, profesor del 
Queens College de Cork, a mediados del siglo XIX. Su libro Investigación de las leyes del 
pensamiento sobre las que se basan las teorías matemáticas de la lógica y la probabilidad 
(publicado en 1854) puso los cimientos de la lógica simbólica moderna. El Algebra 
Booleana está basada en las leyes establecidas por Boole y es el pivote en torno al que 
gira la capacidad de razonar del ordenador. 

Boole escribía en el prefacio de su libro: 


«Las leyes que tenemos que examinar son las leyes de una de nuestras fa- 
cultades mentales más importantes. Las matemáticas que hemos de construir 
son las matemáticas del intelecto humano.» 


Hasta el descubrimiento de Boole siempre se había dado por supuesto que la lógica 


era una rama de la filosofía. Boole demostró con toda claridad que ésta, sin lugar a du- 
das, pertenecía al reino de las matemáticas. 


Interruptores y decisiones 


Investigaremos ahora las afirmaciones de Boole y veremos cómo se relacionan con el 
ordenador, el mecanismo de toma de decisiones y la inteligencia artificial, mediante la 
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reconstrucción mental de algunos de los mecanismos que construyó Stibitz en la cocina 
de su casa. Empezaremos con un circuito muy simple que contiene un generador de co- 
rriente eléctrica (pila), un interruptor simple y una bombilla. 


NE INTERRUPTOR ——————————— BOMBILLA >] 
PILA 


Se puede ver que cuando el interruptor está cerrado, pasará la corriente y la bombilla 
se encenderá. Indicaremos que el interruptor ha sido conectado diciendo que su estado 
es “1”. Cuando el interruptor no está conectado, y la corriente no pasa, se dice que su 
estado es “0”. Igualdad 1; desigualdad O. Posteriormente, adoptaremos la convención de 
que cuando la bombilla está encendida, su estado es 1; cuando está apagada, su esta- 
do es 0. 

Este circuito se denomina circuito de AFIRMACION. Cuando el interruptor está en- 
cendido, la luz está encendida. Es decir, el estado del interruptor es igual al estado de la 
luz. Si dibujáramos un pequeño gráfico que mostrara la relación entre el estado de 
la bombilla y el del interruptor en un circuito de AFIRMACION (ASSERTION) nos 
saldría algo así: 


INTERRUPTOR BOMBILLA 


Señalaremos, de paso, que este gráfico recibe el nombre de ““tabla de verdad””. 
Veremos ahora otro circuito simple: 


| BOMBILLA 
PILA INTERRUPTOR 


Si se observa, se verá que la bombilla está encendida (estado de la bombilla igual a 1) 
cuando el interruptor está abierto (el estado del interruptor es 0) y —en el momento en 
que se cierra el interruptor (interruptor puesto a 0)— la corriente pasará a través suyo, 
en vez de a través de la bombilla. 

Este es un circuito de NEGACION, y la tabla de verdad de este circuito sería la 
siguiente: 


INTERRUPTOR BOMBILLA 
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Llegamos ahora a la parte interesante, en donde los circuitos pueden “tomar deci- 
siones””. Imaginemos que tenemos un circuito con dos interruptores, como el siguiente: 


y INTERRUPTOR UNO —— INTERRUPTOR DOS —— BOMBILLA 


PILA 


Con los dos interruptores cerrados (es decir, encendidos, siendo el estado de ambos 
igual a 1 [1 1]) la bombilla lucirá. Si uno de los dos interruptores está apagado (un inte- 
rruptor puesto en 1, y el otro en 0 [1 0]) o los dos están apagados (el interruptor uno 
puesto a 0 y el interruptor dos igual a 0 [0 0]) la bombilla estará apagada. Este circuito se 
denomina “circuito de puerta 'AND””. 

La tabla de verdad tendría este aspecto: 


INTERRUPTOR UNO || INTERRUPTOR DOS || BOMBILLA 


De “AND” pasamos a “OR”. El ““circuito de puerta *'OR”” es así: 


INTERRUPTOR UNO 
— BOMBILLA 
INTERRUPTOR DOS | 
PILA 
En este circuito que tiene los interruptores paralelos (en el circuito *AND” eran linea- 
les), la bombilla se encenderá (estado 1) si uno de los dos interruptores, uno o dos, está 
en uno (ya sea [0 1] o [1 0]) o los dos interruptores están en uno [1 1]. Antes de conti- 


nuar leyendo, intenta, lector, construir por ti mismo la tabla de verdad del ““circuito de 
puerta “OR” ””. 


INTERRUPTOR UNO || INTERRUPTOR DOS || BOMBILLA 
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Puertas lógicas “reales?” 


El ordenador utiliza puertas lógicas exactamente iguales que estos circuitos, aunque, 
por supuesto, no se trata de esos grandísimos interruptores que hay que encender y apa- 
gar. Una de las razones por las que Shannon y Stibitz usaron interruptores con relé es 
que éstos pueden encenderse sin tener que tocarlos (al aplicar una corriente eléctrica se 
genera una fuerza magnética que cierra el interruptor). 

En el ordenador tampoco hay relés eléctricos del tipo de Shannon, aunque los ele- 
mentos de los ““chips”” de éste actúan como miles y miles de relés. En un diagrama es- 
quemático de los circuitos, las puertas que hemos examinado unas líneas más arriba apa- 
recen como sigue: 

En primer lugar hay un ““inversor””. Si una señal al entrar tiene el estado 0, cuando 
sale del mecanismo tiene el estado 1, y a la inversa: 


A 8 A es igual al 
— ENTRADA SAO POB 
(INPUT) (OUTPUT) 


Esta es una puerta lógica *AND”: 


—- A 
c — C= A*B 
— B 
Y esta es una puerta “OR”: 
—— A 
Cc —— C= A+B 
——:B 


Hay otra puerta que se suele utilizar bastante a menudo en los circuitos y que es útil 
cuando uno está intentando calcular la manera en que los circuitos llegan a tomar deci- 
siones. Se trata de la puerta “XOR”, la “OR EXCLUSIVA”. Con ésta, cuando cualquier 
entrada es 1 ([1 0] o [O 1]) el estado de la salida es 1. No obstante, si las dos son 1 [1 1], 
o las dos son 0 [0 0], el estado de la salida es 0. 

Aquí tenemos un diagrama esquemático de la puerta *XOR”: 


—-A 
c— C=AGQB 
—— B 
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Y esta es la tabla de verdad de la puerta *XOR”: 


INTERRUPTOR UNO (A) || INTERRUPTOR DOS (B) || BOMBILLA (C) 


Tan sólo con estos elementos se pueden construir “circuitos”? y conseguir decisiones. 
Es fácil escoger, por ejemplo, de entre las entradas que hemos examinado (y yo sugiero 
al lector que intente encontrar él mismo cuáles son) una secuencia de entradas que repre- 
sente sentencias como las que siguen: 


IF A AND B son ciertas (es decir, [1 1]) AND C OR 
D (pero no las dos) es cierta ([1 0] o [O 1] 

pero no [1 1] y ciertamente no [0 0]) 

THEN D es cierta (es decir, la salida es 1). 


La tarea de calcular cómo han de combinarse los interruptores para imitar una sen- 
tencia como ésta —o similares— es fascinante, al tiempo que uno puede hacerse una idea 
de la manera en que una simple secuencia de operaciones booleanas elabora las decisio- 
nes para llegar a los resultados (si este circuito estuviera de hecho correctamente cons- 
truido, se encendería una bombilla en D). El realizar este tipo de operaciones ayuda a 
comprender un poco mejor el funcionamiento del ordenador. Partiendo de esta com- 
prensión uno se hace realmente consciente de lo complicadas que pueden llegar a ser 
estas cosas, de la complejidad que requieren cuando se pretende estimular un tipo de 
comportamiento “inteligente”? por encima del más básico. 

Consideremos, por ejemplo, el sistema de circuitos necesarios para emular el funcio- 
namiento del ordenador en el primer programa de esta sección, TICTAC. 


2 
Un programa 
que aprende 


Muchos programas de inteligencia artificial no entran en el ordenador totalmente 
formados. Aun cuando ya se le han corregido los errores y están siendo ejecutados, les 
falta todavía mucho para estar totalmente acabados. El programa que observaremos en 
este capítulo, TICTAC, una versión del TRES EN RAYA, es uno de esos programas 
“sin formar”. TICTAC aprende a medida que juega, modificando sus reglas a la luz de 
los éxitos que vaya obteniendo o, de no ser así, de su comportamiento más reciente. 

En un programa que va a aprender a medida que es ejecutado, las normas de funcio- 
namiento han de adoptar una forma ““blanda”” que pueda modificarse a medida que el 
juego evoluciona. En este programa el ordenador conoce las reglas del juego y cuenta 
con una sección específica para, por un lado, bloquear a su contrincante cada vez que 
éste intente hacer tres en raya y, por el otro, para formar él mismo tres en raya cuando se 
le presente la oportunidad, pero al principio carece totalmente de una estrategia de juego. 

Este es el esquema del tablero de TICTAC: 


El programa juega seleccionando casillas de acuerdo con una secuencia que él mismo 
desarrolla a medida que se van sucediendo las partidas. Si gana la partida, mueve las po- 
siciones escogidas aproximándolas a la cabeza de la secuencia. No hace ningún cambio 
en el caso de que la partida haya quedado empatada. Una derrota provoca el desbarata- 
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miento de la secuencia, con lo que es muy poco probable que sean esas mismas las juga- 
das que escoja en la siguiente partida. 

Tú y yo sabemos, lector, que la casilla central (la cinco en el diagrama que hemos 
visto) es la que hay que ocupar siempre que esté vacía. Al principio TICTAC no lo sabe. 
De hecho, se le ha dado deliberadamente una mala baza de salida —siendo la casilla dos 
la primera de sus posibilidades— con el fin de que nos sea más fácil ver el efecto que tie- 
ne el aprendizaje sobre su juego. 

Al final, si el mecanismo de aprendizaje ha funcionado debidamente, TICTAC debe- 
ría darse cuenta de que, siempre que esté vacía, es una buena idea hacerse con la casilla o 
posición cinco. En realidad, como veremos más adelante, TICTAC sí que llega, de 
hecho, a esta conclusión incluso jugando contra un contrincante que no sepa en absoluto 
de qué va el juego y que, por tanto, juegue totalmente al azar. Es razonable, pues, supo- 
ner que si TICTAC jugara contra un contrincante inteligente —como el lector— su juego 
mejoraría aún más rápidamente. 

Donald Michie, un pionero de la investigación en el campo de la inteligencia artificial 
de la Universidad de Edinburgo, todavía hoy una eminencia, investigó el ““aprendizaje 
automático”” en el juego del TRES EN RAYA. Utilizó un mecanismo denominado “'ca- 
jas”” en el que una meta se divide en varias submetas. Cada caja que se forme contiene la 
información de una submeta. 

La meta del TRES EN RAYA es ganar. Cada submeta consiste en hacer, en primer 
lugar: a) una jugada correcta y, finalmente, b) la mejor jugada dada la situación de la 
partida. 

Michie calculó que fundamentalmente son 288 las jugadas o posiciones diferentes que 
tiene ante sí un jugador del TRES EN RAYA. Procedió entonces a construir, como a 
continuación se indica, su contrincante mecánico (un experimento que quizá al lector le 
gustaría repetir). Michie tomó 288 cajas de cerillas y pintó encima de cada una de ellas 
un tablero con una de estas jugadas o posiciones diferentes y con las casillas vacías nu- 
meradas por orden. Acto seguido escribió en unos papelitos los números escritos en las 
casillas vacías. Cada número estaba repetido varias veces con la misma cantidad de cada 
número por caja. Es decir, si las casillas tres y cuatro estaban vacías en una posición de- 
terminada, la caja de cerillas había de contener, pongamos, cinco pedacitos de papel con 
el número tres escrito en ellos y cinco con el número cuatro. 

Jugaba del modo siguiente. La primera jugada se hacía abriendo la caja que tuviera 
el tablero en blanco (sin jugada, sólo las casillas). Dentro de esta caja tenía que haber, 
entonces, cinco trocitos de papel por cada uno de los números del uno al nueve. Escogía 
al azar uno de los papelitos y movía a la casilla que se le indicaba en éste. Michie iba 
anotanto en una lista los números que salían y de qué caja. 

Al final del juego, Michie volvía a esta lista. Si el ““ordenador-caja de cerillas”? había 
ganado la partida, se añadía en cada una de las cajas apuntadas en la lista (las utilizadas 
en esa partida) otro papelito con el mismo número que hubiera salido en cada caso. Es 
decir, si la primera caja usada, la que tenía el tablero en blanco, proporcionaba el núme- 
ro cinco, se metía en ésta otro trocito de papel con el número cinco. Naturalmente, esto 
aumentaba las posibilidades de que volviera a salir el cinco la siguiente vez que se abriera 
esa caja para escoger un número al azar. El proceso continuaba hasta haber hecho lo 
propio en cada una de las cajas usadas. 

Si la partida acababa en empate, no se modificaba el contenido de las cajas. Si el 
““ordenador”” perdía la partida, se sacaban de las cajas utilizadas los papelitos que 
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habían originado las jugadas de esa partida perdida, reduciendo así las posibilidades de 
que volvieran a salir esos mismos números cuando se abrieran sus cajas respectivas (es 
decir, la siguiente vez que el ordenador se encontrara ante las mismas situaciones de 
tablero dibujadas en esas cajas). 

En un trabajo publicado en 1968, “Boxes: An Experiment in Adaptive Control”” 
(Chambers, R. A., and Michie, D., Machine Intelligence 2 [Ed. Dale, E., and Michie, D.], 
Oliver and Boyd, 1968, pp. 137-152), Michie explica que las cajas *““aprendieron”” tan 
bien que, tras haber jugado 1.000 partidas contra un contrincante que jugaba totalmente 
al azar, el programa ganaba entre un 75 y un 87 por 100 de todas las partidas jugadas. 
En el caso de TICTAC no se puede esperar una proporción similar (aun cuando uno 
tenga la paciencia de jugar 1.000 partidas contra él), pero con todo, lo hace extremada- 
mente bien, sobre todo si se cuentan los empates y se le ofrecen al programa las oportu- 
nidades necesarias para aprender. 


Samuel y el tablero de damas 


Las “cajas de cerillas inteligentes”? de Michie no eran más que un juguete compara- 
das al programa de damas creado, a finales de los sesenta, por Arthur Samuel, de IBM. 
Lo que vamos a comentar aquí es uno de sus últimos programas, tal como aparece esbo- 
zado en el trabajo ““Some Studies in Machine Learning Using the Game of Checkers 
—II— Recent Progress” (Samuel, A., IBM Journal of Research and Development, volu- 
men 11 [noviembre 1967], pp. 601-617). Es interesante observar, sin embargo, que el 
programa final, por todos aclamado, no salió de su cabeza con toda su majestad, total- 
mente formado. 

En realidad, Samuel había empezado programando juegos de damas en 1952 tra- 
bajando en el para entonces poderoso IBM 701. Dos años más tarde pasó el programa a 
un IBM 704 y en 1955 empezó a desarrollar la capacidad de aprendizaje de éste. El pro- 
grama tenía en cuenta unos 40 factores en el momento de pensar la jugada, aunque para 
calcular una jugada en concreto se utilizaban menos de la mitad. Sabía cuándo un deter- 
minado factor no aportaba ninguna información para la elección de la jugada que había 
de hacer en ese momento y entonces lo olvidaba temporalmente. 

El número de fichas con que contaba cada jugador era una cuestión importante y el 
programa de Samuel (como la mayoría de los que le siguieron) intercambiaba con toda 
alegría sus fichas cuando tenía más que su contrincante, pero se volvía muy avaro a este 
respecto cuando iba perdiendo, desde un punto de vista material. Entre los otros facto- 
res que tenía en cuenta el programa cuando evaluaba sus fuerzas, se incluyen el control 
del centro del tablero y el número de fichas del contrincante que se podían atacar con 
una sola jugada. 

Un poco más adelante examinaremos más detenidamente los aspectos de la inteligen- 
cia artificial en los juegos de tablero (con el juego RISITAS inventado precisamente para 
este libro), pero de momento, el interés primordial del programa de Samuel reside en su 
capacidad para aprender. CHECKERS tenía dos maneras de aprender: mediante la ruti- 
na O mediante la automodificación. 

Mediante la rutina, el programa almacenaba los resultados de sus investigaciones en 
relación con las jugadas posibles en la última situación del tablero. Esto significaba que 
la siguiente vez que se encontrara con esa situación, el programa no tendría que recorrer 
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de nuevo todo el proceso de calcular sus implicaciones; el resultado ya estaba allí. Este 
método, por supuesto, come mucha memoria, pero es muy efectivo. Al final el progra- 
ma llegó a jugar casi a nivel de campeonato y había ““recordado”” prácticamente todas 
las posiciones de tablero que valían la pena. 

Decíamos un poco más arriba que la función de evaluación de Samuel hacía uso de 
40 factores. El proceso de automodificación funcionaba del modo siguiente. Samuel per- 
mitía al programa que investigara adelantándose a la posición que tuviera en ese momen- 
to y que llegara a una conclusión en cuanto al valor de ciertas jugadas y posiciónes. El 
programa utilizaba, asimismo, su función de evaluación para llegar a una conclusión 
partiendo de la misma posición en el tablero. 

Samuel argumentaba que, si la función de evaluación era perfecta, generaría el mis- 
mo consejo que el mecanismo de investigar hacia adelante. Los factores de la función 
de evaluación se modificaban después de cada jugada a la luz de la diferencia entre el 
hallazgo de la investigación hacia adelante y la información dada por la función de eva- 
luación. El trabajar de este modo suprimía el tener que estar dependiendo de una gran 
cantidad de memoria, como sucedía en el caso del aprendizaje mediante la rutina. Nues- 
tro programa TICTAC no aprende del mismo modo que CHECKERS, pero su método 
implica automodificación más que acopio de información mediante la rutina. 


El programa de TICTAC 


El programa empieza con la siguiente subrutina de inicialización: 


a 1180 REM INICIALIZACION DA 
: 1190 CLS SS: 
| 1200 DIM A(9): REM TABLERO | 

1210 DIM M(10): REM ACCESO A LA BASE DE DATOS 

O! 1220 DIM W(24): REM DATOS DE VICTORIA O BLOQUEO 

1230 DIM D(S5): REM ACCESO AL MOVIMIENTO EN EL 
JUEGO ACTUAL 
Ud: 1240 REM DATOS DE VICTORIA O BLOQUEO 
ER 1250 FOR J = 1 TO 24 
1260 READ W(J) 

y 1270 NEXT J 
1280 DATA 1, 2, Z, 4, S, 6, 7, 8, 9 og 
1290 DATA 1, 4, 7, 2, 5, B, 3, 6, 9 
1300 DATA 1, 5, 9, 3, 5, 7 
1310 REM BASE INICIAL DE DATOS 
! 1320 FOR J = 1 TO 10 O 
1330 READ M(J) 
1 1340 NEXT J 
| ! 1350 DATA 2, 6, 8, 4, 7, 3, 1, 9, 5, 2 
a: 1760 RETURN LS 


A A EE Po RE 


Se dimensionan cuatro matrices. La matriz A contiene el tablero que se está utilizan- 
do, la M contiene la base de datos de las jugadas (que se actualizan tras cada victoria o 
derrota), la W contiene los datos a partir de los cuales el programa reconoce una poten- 
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cial victoria suya o de su oponente y la D contiene las jugadas de la partida en curso, de 
modo que éstas puedan utilizarse para modificar la base de datos después de cada 
partida. 

Como puede verse, desde la línea 1350, comienza con una base de datos que consiste 
meramente en los números 2, 6, 8, 4, 7,3, 1, 9, 5 y 2. Se trata, como ya indicaba previa- 
mente, de una secuencia de jugadas particularmente mala, lo que asegura que perderá 
una proporción relativamente alta de sus primeras partidas. Si alguien lo dudara, no 
tiene más que poner esas jugadas en el tablero que usamos en este juego: 


1 2 3 
4 5 6 
id 8 9 


Se ha de observar que el programa no mueve necesariamente en el orden expuesto. 
Lo intenta, pero puede encontrarse con que esa casilla en concreto está ocupada en ese 
momento. Asimismo, tampoco usa esta secuencia hasta haber verificado los datos pre- 
programados en relación con el bloqueo de su contrincante en el caso de que éste vaya 
a hacer tres en raya y, por otro lado, haber intentado completar su propio tres en raya. 

El observar cómo el programa va aprendiendo es particularmente fascinante. Así 
pues, parte de éste nos informará de su proceso de aprendizaje al final de cada partida, 
mostrándonos la secuencia que está almacenando. La actualización de la base de datos, 
así como la tarea de informarnos sobre ella, la lleva a cabo la sección del programa com- 
prendida entre las líneas 300 y 480: 


pps ne e 


(Cy ' 300 REM ACTUALIZACION DE LA BASE DE DATOS WD 
E 310 FOR B= 1 705 
2320 FOR J = 2 T10 9 
330 IF M(J) = D(E) THEN GOSUB 370 
(Y 340 NEXT J CO 
y 350 NEXT B 
360 GOTO 430 
370 REM ** REORDENACION DE LOS ELEMENTOS DE LA SE 
MATRIZ M + LS 
380 TEMP = M(J + BANDERA) 
390 M(J + BANDERA) = M(J) 
O) «400 M(J) = TEMP O 


410 J = 9 
«420 RETURN 
E 430 PRINT: PRINT 
() | 440 PRINT "ESTA ES MI PRIORIDAD ACTUALIZADA" A O 


450 PRINT: PRINT 
, 460 FOR J = 1 TO 9 
> 1. 470 PRINT M(J)3 " "5 
' 480 NEXT J 


Lo que viene a continuación es el desarrollo de la base de datos de una versión en la 
que el contrincante era el poco inteligente generador de números aleatorios de mi propio 
ordenador. Pese a la falta de un oponente adecuado, el programa se las arregló para 
aprender con bastante rapidez. Se puede ver lo rápido que TICTAC descubre el valor de 
mover a la casilla central (la número cinco en nuestro tablero): 


NBbúuBpú tia NNIMNNDaAAOaANoaNmDN 
Di Bb ltQDidANidoaNAaAOdDdAaAO noc 
PBBANNANDANODIOAIDNA MA ANNNNoaAaARAO 
N NW 0 NON No 4040 sun 00 00 00 00 00 0000 pb 
00 00 00 O 00 00 00 0000 2 00 2 00 2 00 la JJ JJ U0DUuU JJ 
YA Y Y YI Y Y NN NJ33JI3J3J A Yu JU uy 
UY UY UY UY YU JJ —J NW UY UY UY UY UY UY UY Un = Ur = Un ma 
N NN N NN Y UY UY YN NOOO — —- == Ur = Ur = Un 
WOVWvw0NvwNNONwwNO0OwNONwO0ON 00000000 


Seguidamente, utilicé la última secuencia de la ejecución automática (con la única di- 
ferencia que cambié uno de los doses repetidos por un uno), en vez de la secuencia de 
apertura que se da en el listado completo del programa y me puse yo mismo a jugar con- 
tra el programa, intentando ganarle en todas las partidas. Como puede verse a continua- 
ción, el programa continuaba aprendiendo: 


LbúganaaNIDQDAa hp 
ARA 
NAADDDARoa0Oan 
DN NNNNNNwN 
oo 00 00 00 00 00 00 00 00 
UY UY UY UY UY UY UY —J 
YA YA YI AI 3 Y Y UY UU 
JA po po pudo jo pudo pd 
NNNNNNNNmo 


El programa sufrió una ligera modificación al introducirle una nueva secuencia de 
apertura; una secuencia que a mi juicio era la mejor que podía darle. El ordenador jugó 
primero contra un jugador humano con el siguiente desarrollo (o falta del mismo) de su 
base de datos: 


UU Un — YU  — Un 
Y UY UU Y 
Y Y UY Un —J UU) 
+ e mo PQ y —l 
WOWwWNvw0NvwNNO0owNO 
NN NNNmN 
bhbahahhahap 
DODODODDODO 
00 00 00 00 00 00 


Posteriormente se le puso a jugar contra un contrincante que jugaba al azar. Puede 
verse que es muy poco lo que puede aprender de éste, dando la impresión de que simple- 
mente estuviera bajarando unos cuantos números sin saber muy bien qué hacer con ellos. 


NO 
5] 
00 


== 1D Ur Un má om UN NOD == == Un mm 
UU m0 0 UN — UND NOD — Un 
NO Ur == == 0D Ur NOD =—= Ur Un AD Uy 
UY UY Uy UY UY UY U UY U Uy 
AY AI YI 3 3 3 Y 3 3 —J — 
NN NNNNNNNNNN 
BER Aa 
DODDDDADADAO 
00 00 00 00 00 00 00 00 00 00 00 


uy 


Finalmente, volví a la secuencia de apertura que tenía al principio, dejando que el or- 
denador tomara la delantera al generador de números aleatorios. Tras 90 partidas, la se- 
cuencia fue la siguiente: 


AAA AA AAA JJ Ju 
Ba" 42p—u2u Y 
Un Ur Ur Ur Ur Un Ur Ur La UA Y Ur as Un a 
Y UY UY UY UY UY YODO YU a Un 
00 00 00 00 00 00 00 Y UY UW UW 000 0 
0D O0OO0OO0OO0O0sO0ss00 00 00 00 00 00 DO 
VWVWvw0wvwwvwNwwwNNNnNN0DODOo Oo 
N NN NNNNNO0ONO0O0ONNNnN 
NN NNNNNNN»yNNNNyNNnN 
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El programa tiene un punto flaco. Aunque de un modo u otro acaba por aprender, 
parece que se deja convencer con demasiada facilidad de la conveniencia de intercam- 
biar los números, aun cuando esto no siempre le ayude a jugar mejor. Puede que haya 
quien desee seguir investigando sobre el modo en que el ordenador utiliza lo que aprende 
en cada partida. 


Como ya he indicado antes, la estrategia de juego de TICTAC no proviene tan sólo 
de su base de datos. Tiene también información de los tres en raya que está tratando de 
completar (y de los que está tratando de impedir que complete su contrincante). Esta es 
la sección del código que busca la jugada antes de utilizar la base de datos: 


540 REM MOVIMIENTO DEL ORDENADOR 


550 P. = ASC("0") 
3560 X= 0 
570 J = 1 


580 IF A(W(J)) = AW(J + 1)) AND A(W(J + 2)) = 32 
AND A(W(J)) = P THEN.X = W(J + 2)1 GOTO 730 

590 IF A(W(J)) = A(W(J + 2)) AND A(W(J + 1)) = 32 
AND A(W(J)) = P THEN X = W(J + 1): GOTO 750 

600 IF A(W(J + 17) = A(W(J + 2)) AND A(W(J)) = 32 
AND A(W(J + 1)) = F THEN X = W(J)2* GOTO 750 

610 IF J <X< 21 THEN J = J + 3: GOTO 580 

620 1F P = ASC("0") THEN P = ASC("X")2 GOTO 570 


En primer lugar, trata de encontrar una jugada que le permita ganar (cuando P es 
igual al código ASCII de la letra **O””) y luego intenta encontrar una jugada que bloquee 
al contrincante (con P ajustado igual al código de la ficha del contrincante, la ““X”>”). Si 
no consigue encontrar una jugada en esta sección, hace entrar los datos de la base de 
datos: 


630 REM x** SI NO SE GANA SE BUSCA UN MOVIMIENTO 
DE BLOQUEO se 

640 REM * ENTONCES SE USA LA SIGUIENTE SECCION + 

650 J = 1 

660 IF A(M(J)) = 32 THEN X = M(J): GOTO 750 

670 1F J < 10 THEN J = J + 12 GOTO 660 


Si en ésta tampoco encuentra una jugada, lo intenta con números al azar: 


ñ 690 H H+ad 

h 700 X INT(RND(1) * 9)3 IF A(X) = 32 THEN 750 
no 710 IF H < 100 THEN 690 pa, 
1 720 R$ = "D"s REM ES SIMPLEMENTE UN DIBUJO EN l 


ol esoHz=o O | 


Cuando ya ha encontrado la jugada, mueve su ficha y luego se asegura de que, si 
todas las posiciones están ocupadas y no se le ha asignado ningún valor a R$ (que repre- 
senta al “resultado”? y que está ajustado a ““G”” en el caso de una victoria, “*P”” en el 
caso de una derrota y ““D”” en el de un empate), la partida debe de haber quedado 
empatada. 


A __ _ _—_————-  _ _ _ __ _ _ __ __ __—————+1 


| 

| 750 REM REALIZA EL MOVIMIENTO 
| 760 A(X) = ASC("0") 

| 770 CCONTADOR = CCONTADOR + 1 
| ; 780 D(CCONTADOR) = X 
| 

| 

| 

| 

| 

| 


790 BANDERA = O 

800 FOR J = 1 TO 9 

810 IF A(J) = 32 THEN BANDERA = 1 

820 NEXT J 

830 IF BANDERA = O AND R$="" THEN R$ ="D" 
840 REM SI TODAS LAS CASILLAS ESTAN LLENAS Y R$ 
ESTA VACIO, ENTONCES ES SIMPLEMENTE UN 
DIBUJO 

850 RETURN 


Después de cada jugada, humana o de la máquina, aparece la rutina de COMPRO- 
BACION DE VICTORIA: 


870 REM COMPRUEBA LA VICTORIA 

| 880 J = 1 

| 890 IF A(W(J)) = 32 THEN J =J +3 

| 900 IF J > 23 THEN RETURN en 
Ed 910 IF A(W(J)) = A(W(J + 1)) AND A(W(J)) = ACWCJ U 
| + 2)) THEN 940 | 
| 920 IF J< 22 THEN J = J + 32 GOTO 890 | 
| 930 RETURN | 
| 940 IF A(W(J)) = ASC("0") THEN R$ = "G": REM EL A E 
| ORDENADOR GANA 

950 IF A(W(J)) = ASC("X") THEN R$ = "P"z REM EL 
O ORDENADOR PIERDE O] 
| 960 RETURN | 


Este es el listado completo del programa TICTAC, para quien quisiera investigar por 
su cuenta un tema tan interesante como la educación de las máquinas (para usuarios del 
ZX Spectrum, véase Apéndices): 


_a _ _ Q-—_——. + 


10 REM TICTAC CO 
20 GOSUB 1180: REM INICIALIZACION > 
30 REM *x** REQUISITOS PREVIOS AL JUEGO *e*x* 
40 FOR J = 1 TO 9 


370 
380 


500 


s10 


550 


A(J) = 32 

NEXT J 

FOR J=1705 

D(J) =0 

NEXT J 

CCONTADOR = O 

R$ = ”». 

GOSUB 1070: REM IMPRESION DEL TABLERO 
REM %** CICLO PRINCIPAL ** 

GOSUB 540: REM MOVIMIENTO DEL ORDENADOR 
GOSUB 1070: REM IMPRESION DEL TABLERO 
GOSUB 870: REM COMPRUEBA LA VICTORIA 

IF R$ <> "" THEN 240 

GOSUB 980: REM SE ACEPTA EL MOVIMIENTO DE LA 
PERSONA 

GOSUB 1070: REM IMPRESION DEL TABLERO 
GOSUB 870: REM COMPRUEBA LA VICTORIA 

IF R$ = "" THEN 140 

REM %** FIN DEL CICLO PRINCIPAL ** 

REM dd dd dd 

REM FIN DEL JUEGO 

GOSUB 1070: REM IMPRESION DEL TABLERO 
PRINT: PRINT 

IF R$ = "G" THEN PRINT TAB(8)3 "YO GANO": 


"BANDERA = -1 


IF R$ = "P" THEN PRINT TAB(8)53 "TU GANAS": 

BANDERA = 1 

IF R$ = "D" THEN PRINT TAB(6)5 "ES SIMPLEMEN 

TE UN DIBUJO": GOTO 430 

REM ACTUALIZACION DE LA BASE DE DATOS 

FOR B = 1 TOS 

FOR J = 2 TO 9 

IF M(J) = D(B) THEN GOSUB 370 

NEXT J 

NEXT B 

GOTO 430 

REM *x* REORDENACION DE LOS ELEMENTOS DE LA 
MATRIZ M ** 

TEMF = M(J + BANDERA) 

M(J + BANDERA) = M(J) 

M(J) = TEMP 

J=9 

RETURN 

PRINT: PRINT 

PRINT "ESTA ES MI PRIORIDAD ACTUALIZADA" 

PRINT: PRINT 

FOR J = 1 TO 9 


PRINT M(D)3 " "z 
NEXT J 
PRINT: PRINT 


PRINT "PULSE LA TECLA "RETURN? PARA CONTINUAR 
INPUT As 

GOTO 30 

A 

REM MOVIMIENTO DEL ORDENADOR 

P.= ASC("0") 


Xx 
J 
IF A(W(J)) = AW(J + 1)) AND A(W(J + 2)) = 32 
AND A(W(J)) = P THEN X = W(J + 2): GOTO 750 
IF A(W(J)) = AW(J + 2)) AND A(W(J + 1)) = 32 
AND A(W(J)) = P THEN X = W(J + 1): GOTO 750 
IF A(W(J + 1)) = A(W(J + 2)) AND A(W(J)) = 32 
AND A(W(J + 1)) = P THEN X = W(J):r GOTO 750 
IF J< 21 THEN J = J + 31: GOTO 580 

IF P= ASC("0D") THEN P = ASC("X")2 GOTO 570 

REM *x* SI NO SE GANA SE BUSCA UN MOVIMIENTO 
DE BLOQUEO *s*e 

REM * ENTONCES SE USA LA SIGUIENTE SECCION + 

J=l 

IF A(M(J)) = 32 THEN X = M(J)1 GOTO 750 

IF J < 10 THEN J = J + 11 GOTO 660 

H=0 

H=H+i 

X = INT(RND(1) * 9)1 IF A(X) = 32 THEN 750 

IF H< 100 THEN 690 

R$ = "D": REM ES SIMPLEMENTE UN DIBUJO 

RETURN 

O 

REM REALIZA EL MOVIMIENTO . 

AX) = ASC("0") 

CCONTADOR = CCONTADOR + 1 

D(CCONTADOR) = X 

BANDERA = O 

FOR J = 1 TO 9 

IF A(J) = 32 THEN BANDERA = 1 

NEXT J 

IF BANDERA = O AND R$="" THEN R$ ="D" 

REM SI TODAS LAS CASILLAS ESTAN LLENAS Y R$ 
ESTA VACIO, ENTONCES ES SIMPLEMENTE UN 
DIBUJO 

RETURN ( 

REM 436364626 26 06 6-6 16 26 2 A 

REM COMPRUEBA LA VICTORIA 


J=1 

IF A(W(J)) = 32 THEN J =J + 3 

IF J > 23 THEN RETURN 

IF A(W(J)) = A(W(J + 1)) AND A(W(J)) = AW(J 


+ 2)) THEN 940 

IF J< 22 THEN J =J + 3: GOTO 890 

RETURN | 
IF A(W(J)) = ASC("O") THEN R$ = "G"s REM EL | 
ORDENADOR GANA E 1 


IF A(W(J)) = ASC("X") THEN R$ = "P": REM EL 
ORDENADOR PIERDE 
RETURN 


REM 46646 IM RA 

REM MOVIMIENTO DE LA PERSONA 

PRINT: PRINT 

PRINT "REALICE SU MOVIMIENTO" 

INFUT "MOVIMIENTO" MOVIMIENTO 

IF MOVIMIENTO < 1 OR MOVIMIENTO > 9 THEN 1010 
IF A(MOVIMIENTO) <> 32 THEN 1010 


1040 A(MOVIMIENTO) = ASC("X") 
1050 RETURN 
i 1060 REM esse RA AR 
| - 1070 REM IMPRESION DEL TABLERO DA 


| 1080 CLS | 
1090 PRINT: PRINT: PRINT | 

1100 PRINT "12 2:23 3 "5 CHR$C(ACI))5 "o 2 "5 | 
CHR$(A(2))3 " 2 "3 CHR$(A(3)) CA 

1110 PRINT "———————==-- o men el p | 

1120 PRINT "421251: 6 "y CHR$(A(4))5 "3 "3 | 


1130 PRINT "=========== oo O 
1140 PRINT "71 81 9 "5 CHRSCA(7IIF "oa Mg 
CHR$(A(8))5 "1 "3 CHR$(A(9)) 
1150 PRINT 
1160 RETURN 
1170 REM 444 1616 3646 96 96 16 6 26 16 6 
1180 REM INICIALIZACION 
1190 CLS LO 
1200 DIM A(9): REM TABLERO 
1210 DIM M(10): REM ACCESO A LA BASE DE DATOS 
1220 DIM W(24)1 REM DATOS DE VICTORIA O BLOQUEO E 
1230 DIM D(5): REM ACCESO AL MOVIMIENTO EN EL O 
JUEGO ACTUAL | 
1240 REM DATOS DE VICTORIA O BLOQUEO 
(O) ' 1250 FOR J = 1 TO 24 A, 
1260 READ W(J) y eS 
1270 NEXT J 
1280 DATA 1, 2, 3, 4, 5, 6, 7, 8, 9 
1290 DATA 1, 4, 7, 2, 5, 8, 3, 6, 9 
1300 DATA 1, 5, 9, 3, 5, 7 
1310 REM BASE INICIAL DE DATOS 
1320 FOR J = 1 TO 10 
1330 READ M(J) 
1340 NEXT J 
1350 DATÁ 20,8, 4, 7,3, 1), 9% 5, 2 
1360 RETURN ES 


Si el lector deseara experimentar con un contrincante automático que jugara al azar, 
puede que le interese utilizar éste, que es el que yo mismo usé para este capítulo del libro: 


4500 REM MOVIMIENTO ALEATORIO DE UNA PERSONA 

4510 P =0 

4520 P =P +1 

4530 MOVIMIENTO = INT(RND(1) * 9 + 1) 

4540 IF A(MOVIMIENTO) = 32 THEN A(MOVIMIENTO) = 
ASC("X"): RETURN 

4550 IF P< 100 THEN 4520 

4560 R$ = "D" 

4570 RETURN 


; | 
I 
po | 
| 
l | 


Para que se dispare este contrincante, que aunque incansable, carece totalmente de 
inteligencia, basta con sustituir la línea 140 por GOSUB 4500. 


o es o 
- 
A AR o SS =o : Xx 
TA - 0 Po. 
s .”” AS 
o Son” o la) 
E Ma 
o? E 
X 
to ,9 
- 
Yo) a? Y o e 
sa ? lo) E s aaa AS 
> , > . 
E .” $ .” 
: AS Na 
Y , > AA $ 
e.” 
S 
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3 
Un programa 
que razona 


De un programa que aprende pasamos a SILOGISMOS, un programa que razona. 
Dadas dos sentencias relacionadas, SILOGISMOS es capaz de deducir una tercera que 
contiene una información que no se le había dado explícitamente. 

El programa funciona con silogismos. Un silogismo es un tipo de razonamiento de- 
ductivo. Aristóteles elaboró las reglas que determinan su validez. Generalmente, tiene la 
siguiente forma: 


A es un B 
Cesun A 
Luego, C es un B 


Las primeras dos líneas de un silogismo se denominan premisas o proposiciones, la 
tercera línea es la conclusión. 


Un perro es un animal 
Un animal es peludo 
Luego, un perro es peludo 


Antes de comentar el programa y su origen en detalle, veremos cómo funciona. Igno- 
re todo el material que aparece entre paréntesis antes de la conclusión, ya que se ha 
incluido para que el lector vea su funcionamiento real. Comprenderá de qué se trata 
cuando llegue a la explicación del programa. 

El signo recordatorio *?” aparece cuando SILOGISMOS está esperando una entrada 
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(input). <DE ACUERDO” aparece cuando el programa ha entendido y aceptado esa 
entrada. 


? UN AGUILA ES UN PAJARO 
> DE ACUERDO 


? UN PAJARO ES UN SER CON ALAS 
> DE ACUERDO 


7? ES UN AGUILA UN SER CON ALAS 
(ESTOY BUSCANDO AGUILA”) 
( ENCONTRADA EN 1 1 ) 
> SI 


A medida que se va ejecutando, el programa elabora una base de datos con las pro- 
posiciones, a la que puede remitirse en cualquier momento dentro de esa misma ejecu- 
ción. Seguidamente probé con este otro par de proposiciones: 


| ? UN PAJARO ES UN AVE VOLADORA 
d > DE ACUERDO 
r 


7? ES UN AGUILA UN AVE VOLADORA 
(ESTOY BUSCANDO ” AGUILA” ) 
( ENCONTRADA EN 1 1 ) 
> SI 


? ES UN PAJARO UN SER CON ALAS 
(ESTOY BUSCANDO *PAJARO” ) 
(ENCONTRADA EN 1 2 ) 
> SI 


SILOGISMOS aceptará, para añadirla a su base de datos, cualquier sentencia con la 
forma siguiente: 


Un ...esun... 


Esta sentencia puede incluir “el”, “la”, “un”, “una”, ya que el programa incluye un aná- 
lisis gramatical del lenguaje, lo que le capacita para entenderlos y utilizarlos correcta- 
mente. Por consiguiente, todos ellos son válidos, aunque se ha de tener en cuenta que el 
programa no sabrá qué hacer si se encuentra con un “el”, por ejemplo, situado tras un 
“es” en mitad de frase: 


Un ... es un ... 
El ... es una ... 
La ...esun ... 


El programa se lanza a la ““carrera deductiva'? cuando se encuentra con una frase 
que empieza por “es”: 


Es... un... 
Es un ... un ... 


Si uno se limita a presionar la tecla RETURN, sin introducir ninguna información 
(input), el programa dará por terminada la ejecución (aunque puede volverse a empezar, 
sin que pierda los datos que ha acumulado, mediante el GOTO 30). 

En el caso de introducir un signo de interrogación cuando aparece el signo recordato- 
rio (es decir, tras la primera interrogación con la que SILOGISMOS nos recuerda que 
está esperando una entrada), podremos descubrir lo que SILOGISMOS tiene acumulado 
en la memoria, todo ello ordenado en las categorías, cada cual con su encabezamiento 
respectivo, que SILOGISMOS ha creado a tal efecto. Una vez introducida la interroga- 
ción, el programa preguntará “¿QUE SUJETO SE VA A COMPROBAR?”. En este 
punto se introduce el encabezamiento que se desea que investigue el programa: 


2? 

QUE SUJETO SE VA A COMPROBAR? PAJARO 
2 2 AGUILA 

3 2 SER CON ALAS 
4 2 AVE VOLADORA 


2”? 


QUE SUJETO SE VA A COMPROBAR? AGUILA 
2 1 PAJARO 


2». 


QUE SUJETO SE VA A COMFROBAR? SER CON ALAS 
2 3 FAJARO 


2? 
QUE SUJETO SE VA A COMFROBAR? AVE VOLADORA 
2 4 FAJARO 


rx] 


SILOGISMOS sacará con frecuencia conclusiones sorprendentes; unas conclusiones 
que hacen caso omiso de toda la evidencia que podamos tener (y hablo por mí en este 
caso): 


ISABEL ES UNA TONTA 
> DE ACUERDO 


UNA TONTA ES UNA IDIOTA 
> DE ACUERDO 


ES ISABEL UNA IDIOTA 
(ESTOY BUSCANDO * ISABEL”) 
( ENCONTRADA EN 1 1 ) 
> SI 


2. 


QUE SUJETO SE VA A COMPROBAR? ISABEL 
2 1 TONTA 


Pa 
QUE SUJETO SE VA A COMPROBAR? TONTA 
2 2 ISABEL 

3" 2 IDIOTA 
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QUE SUJETO SE VA A COMPROBAR? IDIOTA 
2 3 TONTA 


? 


Aunque SILOGISMOS puede engañarse a veces y sacar conclusiones totalmente ab- 
surdas, por lo general su razonamiento es bastante consistente: 


? UN AVESTRUZ ES UNA IDIOTA 
> DE ACUERDO 


? ES ISABEL UN AVESTRUZ 
(ESTOY BUSCANDO * ISABEL”) 
( ENCONTRADA EN 1 1 ) 
> NOD 


7? ES UN AVESTRUZ UNA TONTA 
(ESTOY BUSCANDO ” AVESTRUZ” ) 
( ENCONTRADA EN 1 6 ) 
2 ST 


SILOGISMOS funciona con una matriz bidimensional de cadenas alfanuméricas, Z$, 
a la que se remiten, a modo de referencias cruzadas, todas las proposiciones que se intro- 
ducen y no sacando conclusiones más que a partir de estas referencias. 

Este mecanismo no es muy difícil de comprender si uno intenta visualizar lo que su- 
cede al introducir las sentencias. Cuando tecleamos una sentencia como ISABEL ES 
UNA TONTA, el programa ignora ES UNA, utilizando ISABEL como encabezamiento 
de un nuevo apartado o categoría en su base de datos y metiendo TONTA bajo este 
apartado. Una segunda sentencia del tipo UN TONTO ES UN IDIOTA permite que el 
programa abra un segundo nuevo apartado en su archivo, que encabezará con TONTO y 
en el que incluirá IDIOTA. Así pues, cuando le preguntemos al programa ES ISABEL 
UNA IDIOTA, éste mirará primero si tiene en su archivo una categoría cuyo encabeza- 
miento sea ISABEL. Al descubrir que sí cuenta con dicha categoría, mirará cuál es el 
primer sujeto incluido en ella y se encontrará con TONTA. 

Acto seguido mira si tiene una categoría llamada TONTO. Cuando ve que así es, re- 
visa todos los sujetos archivados bajo este encabezamiento y descubre el sujeto ISABEL. 
Gracias a estas referencias cruzadas, sabe que la respuesta a la pregunta ES ISABEL 
UNA IDIOTA es sí. 
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Este es el procedimiento que SILOGISMOS sigue siempre, independientemente de 
cuáles sean las series de sentencias que uno introduce en el programa. Dado que én una 
matriz de 25 x 25, como la que utilizamos con este programa, hay mucho espacio, quizá 
haya quien desee guardar las bases de datos de algunos sujetos. 

Obviamente, ambas series, ISABEL ES UNA IDIOTA y EL AGUILA ES UN PA- 
JARO, se trataron por separado. El gráfico que aparece a continuación muestra el orden 
de almacenamiento interno, es decir, la manera en que están archivados los datos en la 
serie EL AGUILA ES UN PAJARO. Puede que esto nos facilite la tarea de comprender 
cómo SILOGISMOS archiva, para posteriormente acceder a ellas, las proposiciones a 
partir de las cuales saca conclusiones: 


l 2 3 4 
1 AGUILA PAJARO SER CON ALAS AVE VOLADORA 
2 PAJARO AGUILA PAJARO PAJARO 
3 SER CON ALAS 
4 AVE VOLADORA 


Cuando el programa se encuentra con un nuevo sujeto (y éste es el primer nombre de 
la proposición), atraviesa la parte superior de la matriz buscando por orden primero en 
el 1,1, después en el 1,2, luego en el 1,3 y así sucesivamente hasta que encuentra un espa- 
cio sin usar. Esto es lo que sucede cuando uno introduce una proposición como EL 
AGUILA ES UN PAJARO al principio de la ejecución. El 1,1 está libre, de modo que el 
programa almacena AGUILA en éste y PAJARO bajo aquél en el 2,1. 

Tras esto, invierte el orden de los dos nombres y abre una categoría llamada PAJA- 
RO que coloca en el 1,2, archivando en ésta AGUILA (en el 2,2). Cuando se le introduz- 
ca otra sentencia que se refiera a un sujeto para el que el programa ya tiene establecida 
una categoría, como UN PAJARO ES UN SER CON ALAS, almacenará o archivará la 
información SER CON ALAS en el 3,2 y abrirá otra categoría con el encabezamiento de 
SER CON ALAS en el 3,1, bajo el cual archivará PAJARO. 

Y así continúa, archivando mediante referencias cruzadas toda la información que 
recibe con el fin de poder acceder a ella posteriormente. La última sentencia que introdu- 
jimos en esta ejecución fue UN PAJARO ES UN AVE VOLADORA, y como era de 
esperar SILOGISMOS archivó AVE VOLADORA en el primer espacio vacío que encon- 
tró bajo el encabezamiento PAJARO (esto es, en el 4,2) y abrió una nueva categoría lla- 
mada AVE VOLADORA en el 1,4, bajo la que archivó PAJARO. 

Cuando se introduce un signo de interrogación para comprobar el contenido de un 
archivo, el ordenador va recorriendo por orden la hilera de encabezamientos (es decir, 
empieza en el 1,1, pasa al 1,2, de ahí al 1,3 y así sucesivamente) hasta que encuentra el 
sujeto que busca. Si llega al final (esto es, al 1,25) sin haberlo encontrado, nos hará sa- 
ber que no tiene datos archivados sobre ese sujeto. Cuando encuentra el sujeto (como 
PAJARO en el 1,2), procede a imprimir los contenidos archivados bajo ese encabeza- 
miento. En este caso serían, pues, AGUILA, SER CON ALAS, AVE VOLADORA. 

Cuando llega el momento de tomar una decisión sobre si ES UN AGUILA UN AVE 
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VOLADORA (el mecanismo de decisiones se dispara cuando la entrada [input] del usua- 
rio comienza por la palabra OR), el programa comprueba en primer lugar, recorriendo 
para ello la hilera superior, si tiene información almacenada sobre el primer nombre de 
la pregunta. Si descubre que tiene, lo hace saber al usuario (ESTOY BUSCANDO 
“AGUILA” ENCONTRADA EN 1,1) y después pasa revista de arriba a abajo a los nom- 
brestarchivados bajo este encabezamiento, descubriendo PAJARO en el 2,1. Vuelve en- 
tonces a la primera hilera para buscar AVE VOLADORA. Tras encontrarlo en 1,4, 
revisa los nombres agrupados en esta categoría y encuentra PAJARO (en el 2,4). Llega- 
do a este punto y habiendo encontrado una relación entre las dos palabras que ocupan 
su pensamiento en ese momento (AGUILA y AVE VOLADORA), puede concluir que la 
respuesta a la pregunta ES UN AGUILA UN AVE VOLADORA es, sin duda, SI. 
SILOGISMOS nos dirá entonces cuál es su conclusión. 


El programa de SILOGISMOS 


Aquí tenemos el principio del listado de SILOGISMOS en donde el programa proce- 
sa la entrada del usuario. La línea 40 envía la acción a la 960 en el caso de haber introdu- 
cido una pregunta marcada. 


10 REM SILOGISMOS 
20 GOSUB 11001 REM INICIALIZACION 
30 PRINT: INPUT A$ 
40 IF Ag = "?" THEN 960 
50 IF A$ = "" THEN PRINT "FIN DEL PROGRAMA": END 
60 BANDERA = Ó 
70 REM ATENCION! HAY UN ESFACIO ANTES DE LAS 
COMILLAS EN LAS PROXIMAS S LINEAS 
80 IF LEFT$(A$, 3) = "ES " THEN S10: REM CONCLU 
SIONES 
90 IF LEFTS$(AS, 3) 
100 IF LEFT$(A$, 2) 
110 IF LEFT$(A$, 3) 
120 IF LEFT$(A$, 4) 
130 X = LEN(AS) 


"EL " THEN A$ = MID$(A$, 4) 
"LA " THEN A$ = MID$(A$, 4) 
"UN " THEN A$ = MID$(As$, 4) 
"UNA " THEN A$= MID$(A$, 3) 


140N=0 
150 N =N + 1 
160 IF MID$(A$, N, 1) = " " THEN B$ = LEFT$( At, 


N - 1): GOTO. 190: REM EXTRAE EL PRIMER NOMBRE 
170 IF N< X THEN 150 
180 PRINT "NO COMPRENDO": GOTO 30 


190 K = 4 

200 IF MID$(AS$, N + 1, 1) = "F" THEN K= 5 

210 C$ = MID$(A$, N + K): REM PREPARATIVOS DE LA 
FRASE 

220 REM ** ELIMINACION DE ARTICULOS *%* 

230 IF LEFT$(C$, 4)= "UNA " THEN C$ = MID$(C%, 5) 

240 IF LEFTS$(C$, 3) = "UN " THEN C$ = MID$(C$, 4) 

250 IF LEFT$(CS$, 3) = "EL " THEN C$ = MID$(C%, 4) 

260 IF LEFTS$(C$, 3) = "LA " THEN C$ = MID$(Cé, 4) 


La línea 80 detecta el “ES” al principio de la entrada, lo que indica que el usuario pide 
a SILOGISMOS que intente llegar a una conclusión. Esta envía la acción a la 510, en 
donde comienza la rutina de conclusión. 

Las líneas 90 a 120 quitan EL, LA, UN y UNA del inicio de la entrada, de la senten- 
cia, de modo que A$ empezará entonces con el nombre que se utilizará para encabezar 
un archivo o categoría. 

La siguiente rutina, de las líneas 130 a 260, separa la entrada en dos palabras; las 
líneas 130 a 170 se ocupan del primer nombre y dispararán NO COMPRENDO (desde la 
línea 180) si la entrada no responde al formato específico. Las líneas comprendidas entre 
la 190 y la 260 extraen la segunda palabra. La línea 200 comprueba si la frase que queda, 
tras haber quitado el primer nombre, empieza por **F””, en cuyo caso asume que la pala- 
bra central es “FUE”. Esto permite que el programa acepte tanto frases de este tipo: 


DAVID FUE UN GRAN HOMBRE 
como de éste otro: 
ISABEL ES UNA TONTA 


Una vez extraídas las palabras importantes (y habiendo fijado B$ para la primera 
y C$ para la segunda) el programa procede a archivarlas en su base de datos. Se ha de 
recordar que esta sección del código se usa sólo para ““guardar”” la información. Poste- 
riormente la retomará la sección del programa “encargada de llegar a una conclusión”. 

Seguidamente el programa repasará la parte superior de su fichero (los encabeza- 
mientos) para comprobar: a) si ya cuenta con un fichero sobre ese sujeto y, de no ser así, 
b) si le queda espacio para abrir uno nuevo. Si no le queda espacio, imprimirá en la 
línea 340 el siguiente mensaje: NO ME QUEDA ESPACIO PARA ALMACENAR 
MAS SUJETOS. 


270 REM ** ALMACENAMIENTO DE LA INFORMACION *x* 
280 REM *%* PRIMERO SE COMPRUEBA SI SE PUEDE ENCON 
TRAR UN SUJETO, ANTES DE UN ESPACIO EN 


BLANCO ++ 
2900 N= 0 
3500 N = N + 1 


310 IF 2Z$(1, N) = E$ THEN 350: REM EXISTE UN SUJE 
TO AL PRINCIFIO DE LA FRASE 
320 IF Z2$(1, N) = "" THEN Z$(1, N) = B$: GOTO 350 
330 IF N < 25 THEN 300 
340 PRINT "NO ME QUEDA ESFACIO PARA ALMACENAR 
MAS SUJETOS" 


A la siguiente rutina, a partir de la línea 350, se llega una vez que el programa ha des- 
cubierto que ya tiene un fichero sobre ese sujeto (línea 310), o bien ha encontrado espa- 
cio para crear uno nuevo, lo que, en realidad, hace nada más encontrarlo (línea 320). 
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350 REM ** EL PROGRAMA HA LLEGADO AQUI CON EL 
SUJETO ENCABEZANDO EL ALMACENAMIENTO ** 
360 REM *x* AHORA SE PONE EL OBJETO DIRECTO DEBAJO 


DE EL ** 
370 kK =0 
380 K =K + 1 


390 IF Z$(K, N) = C$ THEN 430: REM LA INFORMACION 
YA HA SIDO ALMACENADA DEBAJO DEL ENCABEZAMIEN 


400 IF Z$(K, N) = "" THEN Z$(K, N) = C$: GOTO 430 

410 IF K < 25 THEN 380 

420 PRINT "NO TENGO MAS ESPACIO PARA ALMACENAR 
OBJETOS DIRECTOS" 


430 IF BANDERA = 1 THEN FRINT TAR(6)3 "> DE 
ACUERDO": GOTO 30: REM SE HA REALIZADO EL 
INTERCAMBIO 


440 REM %** AHORA SE INTERCAMBIAN EL SUJETO Y EL 
OBJETO Y SE ALMACENA DE NUEVO +. 

450 BANDERA = 1 

460 M$ = Bé$ 

470 B$ = C$% 

480 C$ = M$ 

490 GOTO 280 


SILOGISMOS no necesita archivar o almacenar AGUILA bajo el encabezamiento 
PAJARO más de una vez, aun cuando la línea UN AGUILA ES UN PAJARO haya 
sido introducida en el programa más de una vez. La línea 390 se encarga de que no se 
guarden las definiciones duplicadas. Una vez archivado el ““objeto””, el ordenador inter- 
cambia sujeto y objeto (líneas 450 a 480) y los archiva a la inversa. Es decir, si antes 
había reservado AGUILA como encabezamiento de un fichero o categoría en el que ha- 
bía incluido PAJARO, ahora reserva PAJARO como encabezamiento e incluye AGUI- 
LA como un elemento más de ese fichero. 

Llegamos ahora a la parte verdaderamente interesante (al menos en términos de la 
ejecución que realiza SILOGISMOS), la sección en la que el programa llega a una con- 
clusión a partir de las proposiciones que ha almacenado: 


S10 REM *x* CONCLUSIONES ** 
320 REM ** PRIMERAMENTE SE FRAGMENTA LA FRASE *x* 
530 A$ = MID$(A$, 4): REM SE IGNORA "ES" 


5340 IF LEFTS$(A$, 4) = "UNA " THEN A$ = MID$(AS, 
5): REM SE IGNORA "UNA" CASO DE HABERLA 

550 IF LEFT$(A$, 3) = "UN " OR LEFT$(A$, 3) = 
"EL " OR LEFT$(A$,3) = "LA " THEN AS = MID$C(A 
$, 4): REM SE IGNORA "UN", ”*EL” O *LA” CASO 
DE HABERLO 


560 REM ** SE COGE LA PRIMERA PALABRA -— F$ ** 
570 X = LEN(AS) 


580 N = 0 

590 N =N + 1 O 

600 IF MID$(AS, N, 1) = " " THEN F$ = LEFT$(AS, pe 
N - 1): GOTO 630 

610 IF N < X THEN 590 a 

620 PRINT TAB(6)5 "> NO COMPRENDO": GOTO 30 O 


En primer lugar se suprime de la entrada (input) el ES inicial junto con UNA (lí- 
nea 540), UN, EL, o LA (línea 550) en el caso de que aparezcan (esto significa que po- 
drá entendérselas tanto con ES UN AGUILA UN PAJARO como con ES ISABEL 
UNA IDIOTA). Esta sección del código se encarga de la primera palabra fijándola igual 
a F$. La siguiente sección extrae la segunda palabra y la fija igual a S$. 


630 REM ** AHORA SE COGE LA SEGUNDA PALABRA - S$ 
+ 

640 S$ = MID$(AS$, N) 

650 IF LEFT$(S$,4) = " UN " THEN S$ = MID$(AS$, | 
| N + 4): GOTO 680 ? | 
| 660 IF LEFT$(S$,5) = " UNA " THEN S$ = MID$(AS, | 
| N + 5)1 GOTO 480 
| 670 S$=MID$(A$, N + 1) | 
| 680 PRINT TAB(9)3 "(ESTOY BUSCANDO *"3 Fs$3 "")" | 
| 690 X =0 

700 X = Xx +1 | 

710 IF Z$(1, X) = F$ THEN PRINT TAB(10)5 "( ENCON 

TRADA EN 1"3 X3 ")"x2 GOTO 750 
720 IF X < 25 THEN 700 | 
730 PRINT TAB(6)5 "NO PUEDO ENCONTRAR EL SUJETO"s | 
PRINT TAB(8)5 FS 
740 GOTO 30 


El programa nos hará saber qué es lo que está buscando (imprimiendo ESTOY BUS- 
CANDO la ““primera palabra”, en la línea 680) y, si lo encuentra, nos dirá en qué lugar 
del archivo la ha localizado (imprimiendo ENCONTRADA EN..., en la línea 710). Si no 
puede encontrar la segunda palabra nos lo dirá en la línea 730 volviendo después al pro- 
grama principal. Se disparará esta línea en el caso, por ejemplo, de que le preguntemos 
al programa algo así como ES ISABEL UN GENIO sin que éste se haya encontrado pre- 
viamente con la palabra GENIO. 


O 750 Y=1 ¿O 
¡| TOY =Y +1 

770 IF Z$(Y, X) = S$ THEN PRINT TAB(6)5 "> SI": 
va GOTO 30 DA 
= 780 IF Y < 25 THEN 760 y 
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Y =1 

Y=Y+1 
| B10 P$ = Z$(Y, X) 
| M 0 
oy M=M+1 O 
|. Lo 840 1F 2$(1, M) = PS THEN 880 Eo 
| ;  —B50 IF M< 25 THEN 830 
| | 860 IF Y < 25 THEN 800 
[CO 1 870 PRINT TAB(6)3 "> NO"* GOTO 30 ED 
| - 8B800=1 
| '||)B8900=0+1 
Po 0 900 IF Z$(Q, M) = Sé THEN PRINT TAB(6)5 "> SI"; 
MO GOTO 30 y O 
| 910 IF Q < 25 THEN 890 
| 920 IF M< 25 THEN 830 
| 930 GOTO 870 
| 


La siguiente sección del código llega a conclusiones. El primer trozo, de las líneas 750 
a 780, dice SI en el caso de que la pregunta que le hicimos tuviera exactamente la mis- 
ma forma que la proposición o frase con que originalmente le habíamos dado la in- 
formación. Es decir, si le preguntamos ES UNA AGUILA UN PAJARO y previamente 
la habíamos dicho de modo explícito UN AGUILA ES UN PAJARO, esta primera parte 
se dará cuenta y nos dirá SI. 

La siguiente sección, de las líneas 760 a 930, busca la palabra siguiendo el método que 
hemos visto antes y concluye ya sea SI (en la línea 900) o NO (en la 870). 


| 960 REM COMPRUEBA EL CONTENIDO DE UN ARCHIVO PAR 
| TICULAR 
| 970 INPUT "QUE SUJETO SE VA A COMPROBAR"; H$ 
| 980 T=0 
990 T=TS¿+A1 
| / 1000 IF Z$(1, T) = Hé THEN 1040 | 
Lory , 1010 IF T< 25 THEN 990 o 
0% 1 1020 PRINT "NO TENGO DATOS ALMACENADOS EN "; H$ ' | 
| 1030 GOTO 30 | 
1040 K = 1 | 
(Y ) 1050 K = K + 1 | 
1060 IF Z$(K, T) <> "" THEN PRINT Kj Tp Z$(K, T) 
1070 IF K < 25 THEN 1050 
1080 GOTO 30 


Esta parte final es la que nos dice lo que el programa ha archivado bajo cada enca- 
bezamiento. 

Lo que viene a continuación es el listado completo de SILOGISMOS: conque ya po- 
demos disponernos a sacar nuestras propias conclusiones (para usuarios del ZX Spec- 
trum, véase Apéndices). 
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420 


REM SILOGISMOS 

GOSUB 1100: REM INICIALIZACION 

PRINT: INPUT As$ 

IF A$ = "?" THEN 960 

IF AS = "" THEN PRINT "FIN DEL PROGRAMA": END 

BANDERA = O 

REM ATENCION! HAY UN ESPACIO ANTES DE LAS 
COMILLAS EN LAS PROXIMAS S LINEAS 


IF LEFTS$(A$, 3) = "ES " THEN S10: REM CONCLU 
SIONES 
IF LEFT$(A$, 3) "EL " THEN A$ = MID$(A$, 4) 


IF LEFTS(A$, 3) 
IF LEFTS(AS, 3) 
IF LEFTS$(AS, 4) 
X = LEN(AS$) 
N=0 
N=08N+1 

IF MID$(A$, N, 1) = " " THEN B$ = LEFT$( As, 
N - 1): GOTO 190: REM EXTRAE EL PRIMER NOMBRE 
IF N< X THEN 150 

PRINT "NO COMPRENDO": GOTO 30 


"LA " THEN A$ = MID$(A$, 4) 
"UN " THEN A$ = MID$(A$, 4) 
"UNA " THEN A$= MID$(A$, 5) 


K=4 

IF MID$(A$, N + 1, 1) = "F" THEN K = 5 

C$ = MID$(A$, N + K): REM PREFARATIVOS DE LA 
FRASE 


REM ** ELIMINACION DE ARTICULOS *x* 

IF LEFTS$(C$, 4)= "UNA " THEN C$ 

IF LEFT$(CS$, 3) "UN " THEN Cs$ MID$(C+$, 4) 

IF LEFTS$(C$, 3) "EL " THEN C$ MID$(C$, 4) 

IF LEFTS$(C$, 3) "LA " THEN C$ = MID$(C$, 4) 

REM ** ALMACENAMIENTO DE LA INFORMACION +*x* 

REM ** PRIMERO SE COMPRUEBA SI SE PUEDE ENCON 
TRAR UN SUJETO, ANTES DE UN ESPACIO EN 
BLANCO ** 

N=0 

N=N+i 

IF Z2$(1, N) = B$ THEN 350: REM EXISTE UN SUJE 

TO AL PRINCIFIO DE LA FRASE 

IF Z2$(1, N) = "" THEN Z$(1, N) = B$: GOTO 350 

IF N< 25 THEN 300 

FRINT "NO ME QUEDA ESPACIO PARA ALMACENAR 


MAS SUJETOS" 
REM +** EL PROGRAMA HA LLEGADO AQUI CON EL 


SUJETO ENCABEZANDO EL ALMACENAMIENTO +x* 
REM ** AHORA SE PONE EL OBJETO DIRECTO DEBAJO 


MID$(Cé, 5) 


DE EL ** 
Kk=0 
K=K+i1 


IF Z$(K, N) = C$ THEN 430: REM LA INFORMACION 

YA HA SIDO ALMACENADA DEBAJO DEL ENCABEZAMIEN 

TO 

IF Z$(K, N) = "" THEN Z$(K, N) = C$:z GOTO 430 

IF K< 25 THEN 380 

PRINT "NO TENGO MAS ESPACIO PARA ALMACENAR 
OBJETOS DIRECTOS” 


IF BANDERA = 1 THEN PRINT TAB(6)5 "> DE 

ACUERDO": GOTO 30: REM SE HA REALIZADO EL 

INTERCAMBIO 

REM %*%* AHORA SE INTERCAMBIAN EL SUJETO Y EL 
OBJETO Y SE ALMACENA DE NUEVO ++ 

BANDERA = 1 


GOTO 280 

REM 40664696 12 6H 16 6 IAH 

REM ** CONCLUSIONES ++ 

REM ** PRIMERAMENTE SE FRAGMENTA LA FRASE +* 
A$ = MID$(A$, 4): REM SE IGNORA “ES” 

IF LEFTS$(A$, 4) = "UNA " THEN A$ = MID$(A$, 
5): REM SE IGNORA ”UNA” CASO DE HABERLA 

IF LEFTS(A$, 3) = "UN " OR LEFTS$(A$, 3) = 
"EL " OR LEFT$(A$,3) = "LA " THEN A$ = MIDS$(A 
$, 4): REM SE IGNORA "UN”*, ”EL” O "LA” CASO 
DE HABERLO 


REM *x* SE COGE LA PRIMERA PALABRA - F$ ** 
X = LEN(A%) 

N=0 

N=N<+i 

IF MID$(AS, N, 1) = " " THEN F$ = LEFT$(A$, 


N — 1): GOTO 630 

IF N< X THEN 590 

PRINT TAB(6)5 "> NO COMPRENDO": GOTO 30 

REM ** AHORA SE COGE LA SEGUNDA PALAERA - S$ 
ee 

S$ = MID$(A$, N) 

IF LEFT$(S$,4) = " UN " THEN S$ = MID$(A$, 

N + 4): GOTO 680 

IF LEFTS$(S$,5) = " UNA " THEN S$ = MID$(A$, 

N + 5): GOTO 680 

S$=MID$(A$, N + 1) 


PRINT TAB(9)5"(ESTOY BUSCANDO ”"3 Fs%3 "*>)" 
x=0 

X= X +1 

IF Z2$(1, X) = F$ THEN PRINT TAB(10)5 "( ENCON 


TRADA EN 1"3 X3 ")"2 "GOTO 750 
IF X < 25 THEN 700 


PRINT TAB(6)5 "NO PUEDO ENCONTRAR EL SUJETO": 
PRINT TAB(8)5 F% 

GOTO 30 

Y =1 

Y=Y+1 

IF Z$(Y, X) = S$ THEN PRINT TAB(6)5 "> SI": 


GOTO 30 
IF Y < 25 THEN 740 


+ 1 
Z$(1, M) = P$ THEN 880 
M < 25 THEN 830 


860 IF Y < 25 THEN 800 

870 PRINT TAB(6)33 "> NO": GOTO 30 

880 Q = 1 

890 Q = 0 + 1 

900 IF Z$(Q, M) = S$ THEN PRINT TAR(6)33 "> SI": 


910 IF Q < 25 THEN 890 

920 IF M< 25 THEN 830 

930 GOTO 870 

940 REM 336461 26 36 46 dé 36d 2646 26 6 de 16d 

950 REM dvd dde dd dd dd 16 6 M6 ME ED II HH MEA IM IA 

960 REM COMPRUEBA EL CONTENIDO DE UN ARCHIVO PAR 
TICULAR 

970 INPUT "QUE SUJETO SE VA A COMPROBAR"; H$ 

980 T=O0 

990 T=TS¿1 

1000 IF Z$(1, T) = H$ THEN 1040 

1010 IF T < 25 THEN 990 

1020 PRINT "NO TENGO DATOS ALMACENADOS EN "3 H$ 

1030 GOTO 30 

1040 K = 1 

1050 K = Kk + 1 

1060 IF Z$(K, T) <> "" THEN PRINT K5 T5 Z$(K, T) 

1070 IF K < 25 THEN 1050 

1080 GOTO 30 

1090 REM 44% 46 16 16 4 1616162 36364 

1100 REM INICIALIZACION 

1110 CLS 

1120 DEFINT A-Z 

1130 DIM Z$(25, 25) 

1140 RETURN 


Sección segunda: LA INVESTIGACION 


4 
Arboles y RISITAS 


En esta sección del libro, desarrollaremos un programa del tipo de LAS DAMAS lla- 
mado RISITAS. Lo usaremos para comentar algunas ideas sobre la investigación me- 
diante árboles, en la cual el ordenador muestra cierta inteligencia investigando líneas de 
posibilidades relacionadas y escogiendo posteriormente la que juzga más adecuada. 

Este tipo de investigación mediante árboles de posibilidades es común a la mayoría 
de los programas que implican solución de problemas. Algunas modificaciones, la mayo- 
ría de ellas muy importantes, tales como **podar”” el árbol para ahorrarnos el tener que 
seguir ramas totalmente inútiles, o el llegar innecesariamente lejos en el caso de otras, 
son siempre necesarias para impedir que el proceso lleve demasiado tiempo, pero la idea 
básica de la investigación mediante árboles sigue siendo fundamental para la solución de 
problemas. 


¿Por qué se les llama árboles? 


Un árbol de búsqueda crece como cualquier otro árbol, salvo que al revés. Tome- 
mos A en el siguiente diagrama como punto inicial de la investigación. Las ““ramas”” (lla- 
madas B, C y D) que salen de éste, representan decisiones válidas (o jugadas correctas, si 
el programa es un juego de fichas). Las ramas más pequeñas que a su vez salen de éstas 
(E, F, etc.), son las implicaciones que acarrea el seguir esa rama. 
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Si este árbol representara un mecanismo de búsqueda de jugada en una partida de 
ajedrez, por ejemplo, A podría representar el movimiento de uno de los caballos. El pro- 
grama sigue entonces las implicaciones que tendría esa jugada. B supone, pongamos por 
caso, que moviendo ese caballo se ataca una de las fichas del contrincante. La respues- 
ta E es que el contrincante sencillamente retrocede esa ficha; F puede ser que el contrin- 
cante defiende esa ficha con otra; y G sería que el contrincante se come al caballo que le 
está atacando. E, F y G se dividirían posteriormente en N, O..., etc., las cuales cubri- 
rían las respuestas posibles a cada una de esas acciones. 

Puede verse que la investigación pasaría rápidamente a abarcar cada vez más posi- 
bilidades, llegando éstas a alcanzar proporciones astronómicas, de no haber algún medio 
de guiarla. Sólo un programa muy sencillo, como el del TRES EN RAYA, podría exami- 
nar todas las ramas de todos los árboles antes de escoger la siguiente jugada. 

En el caso de otros programas, se examina cada rama hasta un punto predetermina- 
do (seguidamente comentaremos cómo se determina ese punto) en vez de seguirla hasta 
el final, y el resultado de ese examen queda almacenado. 


“Procesado paralelo?” 


Otra posibilidad consiste en examinar una rama superficialmente retrocediendo des- 
pués para hacer lo mismo con las demás, una por una; tras esto se examinan con mayor 
profundidad las ramas que parecen más prometedoras. No merecería la pena, por ejem- 
plo, seguir examinando una rama que partiera del supuesto de que el adversario sacrifi- 
caría gustoso su reina para comer un peón. Todas las ramas que impliquen —en opinión 
del mecanismo de evaluación del programa— un debilitamiento de la posición del adver- 
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sario, podrían abandonarse en el mismo momento de descubrirlo, dedicando el tiempo 
de procesado y el esfuerzo a seguir otros caminos más prometedores. 

Cuando uno está desarrollando sus propios programas de inteligencia artificial, le me- 
rece la pena empezar a idearlos en términos de árboles de búsqueda, ya que lo más pro- 
bable es que de un modo u otro tenga que utilizarlos. El árbol puede llegar a alcanzar un 
tamaño más que considerable, sobre todo si no se está trabajando en un dominio muy 
restringido (como lo hacemos nosotros en un programa del tipo de BLOQUELANDIA), 
o no se tienen muy claros los criterios que ha de seguir el programa a la hora de escoger 
entre las diferentes posibilidades. 

He desarrollado, para esta sección del libro, un programa parecido a LAS DAMAS, 
cuyo nombre es RISITAS, a fin de demostrar algunos aspectos de la investigación me- 
diante árboles. Como es natural, para entender el comentario que sigue, es necesario, en 
primer lugar, saber cómo se juega. A su debido tiempo, tendremos la ocasión de obser- 
var diversas instantáneas de una partida completa, pero, por el momento, basta con que 
veamos las primeras jugadas. 

Este es el aspecto del tablero al inicio de una partida: 


ORDENADOR: O PERSONA: O 


-NdAaonoeosOo 
nd pacono Jo 


El marcador, a cero, aparece impreso por encima del tablero. Cada jugador empieza 
con ocho fichas (a diferencia de LAS DAMAS, que se inicia con 12). Las fichas del 
ordenador están en la parte superior del tablero (las O) y las del jugador humano en la 
parte inferior (las P, de ““personas””). El ordenador juega de arriba a abajo de la panta- 
lla y el jugador humano, a la inversa. 

Los puntos representan las casillas negras de un tablero de DAMAS. Las fichas 
se mueven igual que en las DAMAS, es decir, en diagonal de una casilla negra a otra. 
Cada ficha, pues, ocupa, de hecho, un punto que sólo aparecerá al mover esa ficha. Cada 
punto representa una posición a la que puede avanzarse una ficha. 

Como dije previamente, cada ficha mueve como las fichas de las DAMAS, diagonal- 
mente. El modo de comer también resulta familiar: se salta sobre una ficha del contrin- 
cante y se ocupa la casilla vacía inmediata a la que ocupaba la ficha comida. Sin embar- 
go, al contrario de lo que sucede en las DAMAS, en este juego no hay saltos múltiples 
(no se pueden comer varias fichas a la vez). 


Desapariciones 


El objetivo del juego es conseguir cinco puntos antes de que los consiga el contrin- 
cante. Hay dos maneras de marcar puntos. Una, como era de suponer, comiendo una 
ficha al contrincante. La otra, llegando al lado opuesto del tablero. En las DAMAS, la 
ficha que lo consigue, pasa a ser ““dama”” y puede avanzar o retroceder a su gusto. En 
este juego, la ficha desaparece al alcanzar la última hilera del lado opuesto (lo que signi- 
fica, entre otras cosas, que en RISITAS ningún jugador tiene ““damas”” o, lo que es lo 
mismo, sus fichas no pueden retroceder en ningún caso). 

Cuando se salta sobre una ficha del contrincante y la casilla situada inmediatamente 
después es una casilla de la última hilera del lado opuesto, se marcan dos puntos, en vez 
de uno. A su debido tiempo, en la partida de ejemplo, podremos ver cómo sucede esto. 
El ordenador nos dirá las jugadas que está considerando en cada momento de la partida, 
de modo que podremos ir siguiendo paso a paso cómo funciona la inteligencia de la má- 
quina. Al principio del juego hay siete posibles aperturas, según se muestra en el tablero 
que hemos visto antes. El ordenador busca las jugadas correctas y cuando las encuentra 
las imprime en la pantalla antes de decidirse por una de ellas; de este modo: 


ESTOY CONSIDERANDO MOVER DESDE LA CASILLA 71 A 
ESTOY CONSIDERANDO MOVER DESDE LA CASILLA 723 A 
ESTOY CONSIDERANDO MOVER DESDE LA CASILLA 723 A 
ESTOY CONSIDERANDO MOVER DESDE LA CASILLA 735 ALA 66 
ESTOY CONSIDERANDO MOVER DESDE LA CASILLA 735 A 
ESTOY CONSIDERANDO MOVER DESDE LA CASILLA 77 A 
ESTOY CONSIDERANDO MOVER DESDE LA CASILLA 77 A 


(el número de las casillas corresponde a la unión de uno de los números del margen iz- 
quierdo, en primer lugar, seguido de uno de los situados en el margen superior. Es decir, 
la casilla 71 es donde se unen la línea numerada 7, partiendo del margen izquierdo, 
con la numerada 1, partiendo de los números de la parte superior). 

Los números que imprime el ordenador en este punto se refieren a aquellos incluidos 
en la matriz principal que contiene el tablero dentro del ordenador. El tablero numerado 
que utiliza el ordenador en RISITAS lo vemos en la página siguiente. 

Se observará que los números no son consecutivos y ni siquiera empiezan por uno. 
No obstante, este tablero es más fácil de usar, en términos del ordenador, que aquellos 
en los que sólo las casillas negras están numeradas del uno al treinta y dos. 

El ordenador necesita saber dónde están los límites del tablero y los números que fal- 
tan le proporcionan esa información. Por ejemplo, si intenta mover de la casilla 48 a 
la 59, el valor que tiene el elemento 59 en la matriz (cero, en el caso de RISITAS), le avi- 
sará de que haciendo esa jugada se sale del tablero. 

La segunda, y mucho más importante, ventaja de este tablero, reside en la consisten- 
cia con la que se pueden especificar las jugadas, independientemente de en qué lugar del 
tablero sucedan. Explicaré un poco lo que quiero decir con esto. Para empezar, observe- 
mos la lista de jugadas que está considerando el ordenador y tomemos en cuenta la sen- 
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cilla relación matemática que conecta la casilla origen con la casilla destino (desde la que 
se mueve a la que se mueve): 


71 ALA 62 =:9 
73 ALA 44 = Y 

3 ALA 62 - 11 
73 ALA 66 = 9 
75 ALA 6% - 11 
77 ALA 68 29, 
77 ALA 66 - 11 


La diferencia entre ambas es o menos nueve o menos once. Y si se comparan estos 
números con el tablero, veremos qué las jugadas hacia abajo y hacia la izquierda son 
siempre menos once y aquéllas hacia abajo y hacia la derecha son siempre menos nueve. 

Esto es cierto para todo el tablero. Cualquier jugada del ordenador que no implique 
comer una ficha al adversario, ha de ser, partiendo de la casilla inicial, o menos nueve o 
menos once. Estoy seguro de que el lector sabrá apreciar cuán cómodo es esto desde el 
punto de vista del ordenador. (Los incrédulos pueden intentarlo utilizando un tablero 
que tenga solamente numeradas las casillas negras del uno al treinta y dos; no tardarán 
en darse cuenta de los inmensos problemas que se crean.) 
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Es más, con este tablero, al ordenador le resulta bastante fácil tomar decisiones. 
Pongamos que la casilla en la que se encuentra el ordenador tiene el número X. Si hay 
una ficha del jugador humano en la casilla X-9 y la X-18 está vacía, éste sabe que puede 
comer saltando a la casilla X-18. Se marca un punto en el marcador y X-9 pasa a ser una 
casilla vacía. 

Y hay todavía algo más: el ordenador tiene en cuenta lo que puede suceder después 
de esa jugada; piensa primero en las jugadas que puede hacer el jugador humano a con- 
tinuación y, entre éstas, cuál es la más probable. Es en este punto donde realmente hace 
su aparición la “inteligencia”? del ordenador. Si hay una ficha del jugador humano en la 
casilla X-27, el ordenador puede suponer —posiblemente sin que le falte razón— que 
la siguiente jugada del juegador humano será comer la ficha del ordenador situada en la 
casilla X-18, moviendo para ello a la casilla X-9. 

La posición después de haber comido (recordemos que estamos, considerando ahora 
que somos el ordenador, en la casilla X-18) se encuentra también amenazada potencial- 
mente por la casilla X-25, de estar libre la X-7. Llegados a este punto la explicación 
puede parecer un poco sorprendente, conque lo mejor es que intentemos seguirla en el 
tablero que aparece unas páginas más atrás o en un tablero de damas numerado del 
mismo modo. 

El ordenador se da cuenta, asimismo, de cuándo se encuentra atacada una de sus 
fichas. Volvamos a imaginarnos que somos el ordenador y que tenemos una ficha en la 
casilla X. El jugador humano mueve a la casilla X-9. Sabemos que X +9 está libre, de 
modo que el jugador humano podrá mover a ésta comiéndonos a nosotros que estamos 
en la X. Para impedirlo podemos, ya sea poner una de nuestras fichas en X +9 o, si esto 
no fuera posible, mover otra ficha de modo que la casilla X + 9 quede amenazada. Con 
esto quizá logremos convencer al jugador humano de que es mejor que no coma esa 
ficha. 

En este juego, al contrario de lo que sucede en las DAMAS, uno no está obligado a 
comer llegado el caso y puede dejar de hacerlo si no lo considera adecuado. Uno puede 
preferir no comer en un momento determinado una ficha amenazada porque sabe que si 
espera un poco puede marcar dos puntos comiendo esa misma ficha y llegando al mismo 
tiempo a la última hilera del tablero. 


En profundidad 


El árbol de búsqueda de RISITAS no llega a profundizar mucho, aunque el progra- 
ma se las arregla para jugar razonablemente bien y ganar no pocas partidas (incluyendo 
la que utilizo un poco más tarde en este mismo capítulo para explicarlo). Habrá quien se 
sienta tentado a pensar que el programa podría jugar perfectamente si se investigaran 
completamente todas las posibilidades que ofrece cada árbol. 

RISITAS es un juego menos complejo que las DAMAS); no hay en él saltos múltiples 
ni se pueden hacer ““damas”” y, por tanto, no estaríamos muy descaminados al pensar 
que no es del todo imposible desarrollar un sistema perfecto. Por lo menos, debería ser 
posible crear un camino mediante el cual el ordenador, con sólo seguirlo, pudiera jugar 
extremadamente bien. z 

Podemos hacerlo siguiendo un método en cierto modo similar al del TRES EN 
RAYA jugado por el ““ordenador-caja de cerillas”? del que hablábamos en el capítulo de- 
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dicado al programa de TICTAC. Es decir, podemos examinar todas las bazas posibles, de 
todas las partidas posibles, analizándolas en profundidad. Después de todo, disponemos 
de unos ordenadores infatigables y nada nos impide que sean ellos quienes lleven a cabo 
los “trabajos pesados”. 

Pensemos un poco sobre esto. Sabemos (porque el ordenador nos lo ha dicho antes) 
que son siete las jugadas que puede hacer al principio de la partida. Así pues, nuestro 
árbol, con A arriba a modo de tronco, empieza con las ramas B, C, D, E, F, G y H. El 
jugador humano puede escoger igualmente entre siete jugadas diferentes al inicio de la 
partida. A cada una de las siete ramas iniciales habrá que añadirle, pues, siete subramas 
(o “nudo”, que es como se llama al punto de intersección de las ramas). Después de que 
cada jugador haya movido una vez, e incluso antes de que el programa empiece a consi- 
derar las posibles respuestas que puede dar a la primera baza del jugador humano, ya 
son cuarenta y nueve las diferentes ramas que hemos de seguir. 

La situación empeora a continuación. Ahora que ambos jugadores han movido una 
ficha de su primera hilera, son dos las jugadas realizables (en algunos casos una, si la 
jugada inicial se ha hecho con una de las fichas de los extremos) más otras seis (posible- 
mente la primera jugada ha bloqueado otra realizable con una ficha que está todavía en 
la primera hilera). Esto significa que ahora son ocho multiplicadas por cuarenta y nueve 
las ramas que hemos de considerar, y esto antes de que el jugador humano haya movido 
por segunda vez. 

Un árbol de búsqueda de este tipo aplicado a las DAMAS contendría tantos nudos 
como diez elevado a cuarenta. Considerando una frecuencia de tres millones de nudos 
por segundo (lo que necesitaría un ordenador estupendísimo), el examen total de este 
árbol llevaría un número de años que sería igual a diez elevado a veintiuno. 

Sugeríamos un poco antes que una manera de podar el árbol era abandonar sencilla- 
mente las ramas poco aprovechables (como por ejemplo, todas aquellas posibilidades en 
las que el contrincante ponga deliberada e innecesariamente en peligro una de sus 
fichas), con lo que ahorrábamos tiempo y esfuerzo para examinar otras ramas que mere- 
cieran más la pena. Asimismo, sugeríamos que el ordenador podría ir comprobando una 
por una todas las ramas, pero sin profundizar mucho en ninguna de ellas, con la posibi- 
lidad de abandonar las más débiles para concentrarse en las más prometedoras. 

Para hacer esto, hemos de poder asignar un valor a la posición encontrada. Este 
valor puede ser un número (basado en algo parecido al del programa de DAMAS de Sa- 
muel del que hablamos en el capítulo dedicado a TICTAC) o puede basarse en un esque- 
ma jerárquico en el que se ordenen las jugadas escogidas decidiendo no seguir la mayoría 
de las ramas que podrían generarse. Como veremos enseguida, esto es lo que hicimos en 
el programa de RISITAS. 


Mini-maxi 


No obstante, primero hemos de profundizar un poco más en el estudio de los árboles 
de búsqueda, si lo que queremos es conseguir que el ordenador juegue perfectamente. 
RISITAS utiliza una modalidad de la técnica conocida con el nombre de ““mini-maxi””, 
con la cual se pueden ir podando las ramas que aparecen sin cesar. 

Para usar esta técnica, sin embargo, el ordenador tiene que estar capacitado para 
asignar valores numéricos a las posiciones que va descubriendo. 
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Imaginemos que son tres las posibilidades que está considerando y que cada una de 
ellas consiste en una jugada con una ficha diferente. El valor dado a esa jugada podría 
depender, en parte, de la proximidad de la ficha con respecto al centro del tablero des- 
pués de haberla movido, de si amenaza (inmediatamente o tras otra jugada) una ficha 
del adversario, de si la casilla que se está tomando en consideración se encuentra atacada 
por una ficha enemiga, de si con esa jugada se come una ficha enemiga o, finalmente, 
de si se consigue cualquier otro objetivo (como llegar a la última fila del lado opuesto). 

Este sería el árbol, con las jugadas B, C y D en los extremos de las tres primeras ra- 
mas y su puntuación (el valor que tienen) bajo ellas: 


A 
B C D 
8 12 -4 


Podemos ver que C tiene el valor más alto, de modo que la elección parece obvia. 
Recordemos que este arbolito está basado en la situación una vez que el ordenador ha 
movido. Sin embargo, si la máquina examinara la siguiente serie de ramas, en la que se 
consideran y evalúan las posibles respuestas del jugador humano, vería esto: 


A 


F H | J 


E 6 
2 -4 6 3 -] -12 


Los valores que se dan aquí a los nudos E a J están calculados en términos de la eva- 
luación de las posiciones del tablero por parte del jugador. La mejor jugada que podría 


60 


hacer el ordenador sería aquella que hace que las posibilidades del jugador humano, tras 
haber movido, en respuesta a la jugada del ordenador, sean las que le dejan en una posi- 
ción más débil para afrontar las siguientes jugadas. El ordenador elegirá, pues, aquella 
posibilidad con la que marque más puntos al tiempo que deje minimizadas las posibilida- 
des del jugador humano. De aquí viene el término “*mini-maxi”. 

Si consideramos que el ordenador no va a profundizar más en su investigación con el 
“fin de evaluar su propia posición después de cada jugada del jugador humano (y posible- 
mente para evaluar las respuestas a esa respuesta), probablemente escogerá la jugada B. 
Esta le deja en una posición bastante fuerte (con un índice de 8), aunque no tanto como 
en el caso de la jugada C (con un índice de 12). 

El ordenador parte de la base de que el jugador va a hacer la mejor jugada que pueda 
dentro de lo que le permitan las circunstancias. De haber escogido el ordenador la juga- 
da C, con el fin de conseguir el índice más alto inmediatamente después de la jugada, ha- 
bría dejado al jugador humano la posibilidad de escoger la jugada H, con lo que éste ter- 
minaría con un índice de 13. En vez de esto, al escoger el ordenador la jugada B, todo lo 
que puede hacer el jugador humano es responder escogiendo el nudo E, con lo que se 
queda con un índice de 2. 

Decíamos antes que RISITAS funciona asignando un valor a todas las jugadas posi- 
bles, siguiendo un orden jerárquico. Escoge las jugadas en relación con esa jerarquía. De 
serle posible, siempre hará la jugada situada más arriba. 

En un grado u otro siempre está presente la técnica ““mini-maxi””. El programa piensa 
solamente en términos de ventaja material, es decir, intenta reducir el número de fichas 
del contrincante al tiempo que preserva las propias. 

Por ejemplo, el programa ve dos posibles capturas; con una de ellas se expone a que 
después le coman a él una ficha. Naturalmente hará la jugada que le deja con la posición 
más fuerte después de comer (conservando en el tablero la ficha con la que ha comido) e 
ignorará la jugada que afianza la posición de su contrincante (ya que éste, a su vez, co- 
mería una ficha del ordenador). 

La jerarquía de jugadas que utiliza RISITAS para podar el árbol de “posibles juga- 
das”? y ahorrarse el tener que investigar ramas que representan jugadas que es muy poco 
probable que lleve a cabo, es la siguiente. Se almacenan todas las jugadas encontradas 
que se ajusten a la descripción: 


— Capturas seguras que además amenazan otras fichas del jugador humano 
y no exponen a ninguna ficha propia. 

— Capturas que dejen las fichas que han efectuado esa captura en situación 
de seguridad frente a las fichas del contrincante. 

— Otras capturas. 

— Jugadas que protejan las fichas amenazadas. 

— Rechazo al azar de las jugadas citadas si por el hecho de efectuar la juga- 
da se exponen fichas propias. 

— Jugadas con las que se llegue a la última hilera del lado opuesto aunque 
no se coma ninguna ficha del contrincante. 

— Jugadas que no expongan ninguna ficha del ordenador aunque éste no 
coma con ellas ninguna ficha del contrincante. 

— Cualquier jugada correcta. 
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En el momento en que encuentra una jugada con la que puede comer alguna ficha del 
contrincante sin exponer por ello las suyas, el ordenador no se preocupará en seguir in- 
vestigando el árbol de jugadas. En efecto, poda automáticamente las ramas con nudos 
““bajos”” mediante el sencillo método de ni siquiera tenerlas en cuenta. Esto puede pare- 
cer un tanto imprudente y precipitado y, de hecho, significa que el programa no es capaz 
de jugar siguiendo ningún tipo de estrategia global, pero en la práctica funciona sorpren- 
dentemente bien (a lo que contribuye, desde luego, la sencillez del juego) y se las arregla 
para dar la impresión de que tiene una técnica de lo más refinado. 

Espero que el lector pueda apreciar que esta ordenación jerárquica de la jugada dis- 
minuye el número de posibilidades que deberían investigarse. Al examinar más detenida- 
mente el programa veremos que éste, en primer lugar, peina el tablero, casilla por casilla, 
buscando posibles capturas; capturas que posteriormente almacena como ““buena captu- 
ra, segura”, “segura” o “captura”. 

Si las zonas de almacenamiento siguen vacías cuando ha terminado de peinar el table- 
ro, el ordenador vuelve a hacerlo buscando ahora si alguna de sus fichas se encuentra 
amenazada por alguna ficha del jugador humano. 

Si en esta búsqueda tampoco consigue encontrar una jugada que le convenga, nues- 
tro ordenador mira si tiene alguna ficha en la penúltima hilera del lado opuesto del ta- 
blero con el fin de, en el caso de tenerla, moverla a la última hilera marcándose así un 
punto. Para llevar a cabo esto cuenta con un orden predeterminado que le garantiza que 
si son dos las fichas con las que puede mover para situarse en la última hilera del table- 
ro, moverá primero la que esté situada más cerca del medio del tablero, en la suposición 
de que siempre es más probable que ésta llegue a encontrarse atacada por el contrincante 
que una ficha situada en un extremo del tablero. Se trata de una suposición un poco so- 
bre la marcha, pero garantiza que el ordenador no se limitará a mover la primera ficha 
que encuentre en la penúltima hilera sin antes ver cuál tiene más posibilidades de ser 
comida por una ficha enemiga. 

Si todavía no ha conseguido mover, el ordenador vuelve a peinar el tablero almace- 
nando todas las jugadas seguras que descubra (es decir, cualquier jugada que no expon- 
ga a una posterior captura por parte del contrincante a la ficha con la que se ha movido). 
Posteriormente el ordenador escoge una al azar entre todas ellas (en el caso de haber 
encontrado más de una). 

Si en esta búsqueda tampoco consigue encontrar una jugada, el ordenador busca 
cualquier jugada, siempre que sea correcta, para lo que va escogiendo al azar las diferen- 
tes posiciones de las fichas en el tablero. Si pese a los 200 intentos que se permite a sí 
mismo, no consigue encontrar una jugada correcta, el ordenador se dará por vencido. 
En breve pasaremos revista a las partes más importantes del listado identificando las 
subrutinas que llevan a cabo cada una de las tareas que aquí hemos especificado. 

Posiblemente habrá quien piense que los múltiples barridos del tablero son, en cierto 
modo, una pérdida de tiempo. ¿Acaso no puede el programa realizar los diferentes nive- 
les de búsqueda con un solo barrido? La respuesta es, por supuesto, ““sí””, salvo que en 
muchos casos esto significaría un despilfarro considerable ya que buscaría y almacenaría 
jugadas que ni siquiera tiene la intención de examinar. De todos modos, puede que el 
lector quiera modificar el programa, o escribir uno nuevo, con el fin de que todas las 
comprobaciones se hagan en un solo barrido; de hacerlo, podrá ver los efectos que esto 
tiene en el tiempo de reacción del programa nuevo o modificado. 

Es obvio decir que el sistema jerárquico que determina el valor relativo de las jugadas 
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podría combinarse, para conseguir una mayor flexibilidad, con una función de evalua- 
ción. Esto introduciría, al igual que hizo Samuel con su programa, cosas tales como el 
número de fichas con que cuenta un jugador en comparación con las que cuenta el otro, 
el número de piezas que se encuentran directamente amenazadas y el “control del cen- 
tro””, defínase como se defina. 

Una alternativa al uso de la función de evaluación sería que el ordenador almacenara 
todas las posiciones posibles del tablero asignándoles un valor predeterminado a cada 
una de ellas. Pero esta solución, al igual que la idea de hacer árboles completos que cu- 
brieran todas las consecuencias y resultados posibles de todas las jugadas de cada parti- 
da, choca contra la barrera de los números astronómicamente altos. En las DAMAS hay 
unas diez elevado a cuarenta posibles posiciones del tablero y las de RISITAS no le van 
muy a la zaga. 

No existen reglas que puedan aplicarse a la hora de desarrollar las funciones de eva- 
luación para los programas de juegos de tablero. La función inicial vendrá guiada por 
un trabajo de intuición ““informado””, tras lo cual se probará esa función en la práctica, 
lo que permite modificarla hasta que actúe correctamente. La ventaja de los juegos sen- 
cillos, como el TRES EN RAYA, es que el programa puede jugar una y otra vez contra 
un contrincante que juegue al azar, que no sepa jugar. Los resultados de estas partidas 
pueden utilizarse entonces para modificar automáticamente la función de evaluación; o 
también, pueden jugarse un gran número de partidas con una versión determinada de la 
función comparándolas posteriormente con un número similar de partidas jugadas con 
otras versiones de la misma. No es nada sencillo programar un contrincante que juegue 
una y otra vez contra el programa cuando se trata de juegos más complejos, como el 
AJEDREZ, las DAMAS o, incluso, RISITAS. 


Elementos de peso 


La tarea se simplifica por el hecho de que algunos de los elementos que integran una 
función de evaluación, generalmente están equilibrados al estar multiplicados por un va- 
lor más alto que otros. La modificación de la función de evaluación puede ser entonces 
sólo una cuestión de modificar los factores de peso, más que de tener que añadir o 
suprimir completamente nuevos elementos. 

Intentaré explicar el párrafo precedente con un ejemplo concreto. Los jugadores de 
ajedrez saben por experiencia que el valor relativo de las piezas puede expresarse, a gran- 
des rasgos, del modo siguiente: 


PEON uu 
ALFIL 7 
CABALLO <e Se 
TORRE 
REINA 


REY 


cn 


a 
LJ] 


28 (*infinito”) 


Podemos crear la primera evaluación sencillamente sumando las fichas que tenemos 
y restando las que tiene nuestro contrincante, con lo que damos la medida de nuestra 
“fuerza”” relativa; de este modo: 
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Fuerza = N*WwP + TNWB + 3.3ANWE + 
SNXWR +  PANAWO — (NADF. +  INXDE 
+  FLSANADE +  SX%NADR +  9X*N*XDO) 


Con ésta como evaluación inicial, podríamos escribir un programa de AJEDREZ sin 
grandes refinamientos técnicos; un programa que no tendría inconveniente en sacrificar 
sus fichas, o cambiarlas, cuando su ““fuerza”” fuera positiva y que sería más conservador 
a este respecto cuando la ““fuerza”” fuera negativa. Jugando contra este programa y usan- 
do esta función para ayudar a decidir qué ramas deben investigarse (utilizando la técnica 
“*mini-maxi””) podríamos darnos cuenta de que, en realidad, a la torre le hemos dado un 
valor demasiado bajo, lo que nos lleva a cometer errores innecesarios. Así pues, podría- 
mos aumentar su valor a 6,56 7. 

El valor de la función de evaluación podría incrementarse si se pudiera incorporar la 
movilidad (expresada como el número de movimientos que tiene cada ficha). El valor de 
la torre, por ejemplo, podría expresarse como 5*n*wr +3*rm (siendo rm igual a los 
movimientos que podría hacer). Y todavía podríamos llevar a cabo una elaboración pos- 
terior de esta función sencillamente añadiéndole al valor de la ficha un número que refle- 
jara el ““valor”” de la casilla que ocupa (dándole, pongamos por caso, un valor de 8 a las 
cuatro casillas centrales, 6,5 a las casillas que rodean a las cuatro centrales y 4 a las si- 
guientes). Y así sucesivamente, podría irse haciendo una función cada vez más elabora- 
da. Cuando uno se detiene a pensar en los problemas inherentes a la creación de una 
función de evaluación para un programa tan complejo como puede serlo el AJEDREZ, 
se da perfecta cuenta de que una tarea de este tipo es algo mucho más complicado de lo 
que hubiera podido imaginar. 

Quien se sienta interesado en el desarrollo de funciones de evaluación, podría empe- 
zar desarrollando una para RISITAS y usándola para modificar el modo en que se esco- 
gen en éste las jugadas. Encontrará que incluso una función no muy bien acabada —-si 
consigue que el ordenador la aplique en la práctica— mejorará notablemente el juego de 
éste. 

Sería posible, de ser casi infinitos el tiempo y el poder informático con que conta- 
mos, investigar todas las ramas del árbol hasta llegar al final de la partida. Esto signifi- 
caría que tendríamos que investigar una cantidad enorme de posibilidades, como vere- 
mos enseguida. Quizá, una aproximación más sensata sería limitar la profundidad de la 
investigación. Por el momento, admitamos que hemos decidido deliberadamente dar tan 
sólo dos pasos en nuestra investigación del árbol; una jugada y la posible respuesta a esa 
jugada por parte del contrincante. 

Una investigación de este tipo recibe el nombre de “*2-capas”” porque estamos investi- 
gando en profundidad sólo una jugada y la inmediata respuesta a ésta. A grandes ras- 
gos, RISITAS utiliza un tipo de investigación de ““2-capas”” (pero sin una técnica de 
““mini-maxi”” global) ya que intenta encontrar la jugada que le proporcione la mejor ven- 
taja material suponiendo que el contrincante, en respuesta, hará también la mejor juga- 
da posible en términos materiales (es decir, si puede, hará una captura). Si admitimos 
que la función de evaluación que hemos elaborado es realista, cuanto más profunda sea 
la capa, mejores serán los resultados que consiga el programa. 

No obstante, a medida que vayamos profundizando en la investigación, volveremos a 
encontrarnos con cantidades astronómicas. Si admitimos que en el TRES EN RAYA 


64 


(o CEROS Y CRUCES) hay tres jugadas posibles al inicio del juego (es decir, una juga- 
da realizada en una esquina es igual a cualquier otra jugada realizada en otra esquina, ya 
que el primer tablero puede transformarse en los otros mediante una simple rotación), en 
el nivel 2-capas habrá entonces doce posiciones y una cantidad que se aproxima a 12x7 
en el siguiente nivel (y decimos “que se aproxima”” porque no todas las partidas comple- 
tarán estas posibilidades, ya que se podría llegar a un empate o a una victoria antes de 
que se cumplieran las nueve posiciones). 


En otros juegos las posibilidades aumentan todavía más dramáticamente. En el AJE- 
DREZ, por ejemplo, una investigación con un promedio de 4-capas tiene que vérselas 
con una cantidad de posibilidades que ronda el millón. 


El algoritmo alfa-beta 


¿Cómo podemos arreglárnoslas con todas esas cifras cuando estamos intentando 
escribir un programa que juegue razonablemente bien pero que no tarde un número de 
años igual a diez elevado a cuarenta en hacer una jugada? Es el momento de introducir 
el algoritmo alfa-beta, una ayuda de lo más eficaz a la hora de desbastar las ramas de 
nuestro árbol. 

El algoritmo alfa-beta es muy sencillo, pero muy poderoso. Dice que —en el caso de 
poder escoger entre un conjunto de jugadas posibles— una vez que hemos encontrado la 
jugada que se ajusta a nuestras necesidades (y nuestras necesidades pueden expresarse en 
términos de mejorar la puntuación dada por la función de la evaluación), no hay necesi- 
dad de seguir buscando otra jugada en ese juego. 

El algoritmo alfa-beta recibe este nombre porque opera sencillamente siguiendo de 
cerca dos valores llamados alfa y beta. Nuestro programa investiga un árbol de posibili- 
dades intentando encontrar una buena jugada. Alfa es el valor de la mejor jugada que 
éste ha descubierto hasta el momento. Al seguir investigando, el programa encuentra 
una jugada que produce un valor más bajo que alfa. Inmediatamente sabe que no mere- 
ce la pena seguir esa rama porque le llevaría a un resultado peor que el que ya ha encon- 
trado. Esto significa que el ordenador queda en libertad para seguir buscando en una 
rama nueva. 

Mientras tanto, el programa calcula asimismo las posibles respuestas a sus jugadas. 
Si encuentra una respuesta mala desde el punto de vista del contrincante —de modo que 
no es muy posible que éste haga esa jugada—, decide que no tiene sentido seguir las 
situaciones que podrían derivarse de esa respuesta. Beta es el valor que tiene el contrin- 
cante cuando hace la mejor jugada posible en respuesta a otra del ordenador. La investi- 
gación se interrumpe si la rama lleva a una jugada del adversario que disminuya el valor 
de beta, considerada desde el punto de vista del jugador humano. 

La interrupción en la investigación debida al descubrimiento de que la rama que está 
investigando baja la puntuación del ordenador se llama ““interrupción alfa””. La otra in- 
terrupción, la que se produce cuando la rama lleva a una jugada del contrincante que 
disminye el valor de beta, se llama, como era de esperar, ““interrupción beta”. 

En la siguiente secuencia podemos ver cómo actuaría una forma, no especialmente 
cuidada en este caso, de la cara alfa de este algoritmo: 
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— cálculo del valor del tablero; 

— búsqueda de la primera jugada; 

— cálculo del valor del tablero tras la primera jugada; 

— búsqueda de la mejor respuesta por parte del contrincante y cálculo del 
valor que tendrá el tablero después de esa jugada; 

— almacenamiento de ambos valores; 

— búsqueda de la siguiente jugada realizando el mismo proceso; 

— si la nueva jugada produce un resultado “*mini-maxi”” mejor que la ante- 
rior, el ordenador descarta la primera y almacena sólo la segunda; 

— continuación del proceso manteniendo sólo almacenada la jugada que 
mejor resultado “*mini-maxi”? ha producido hasta el momento. 


Siguiendo este proceso el ordenador terminaría con una sola jugada que —teniendo 
en cuenta que la búsqueda es limitada— sería la ““mejor”” jugada de todas las que pudie- 
ra hacer. 

Se ha de observar que el algoritmo alfa-beta puede aplicarse en muchas áreas de 
toma de decisiones y no sólo en los juegos de tablero. Muchos programas inteligentes, 
de los que implican una elección entre un número determinado de posibilidades, siguen 
una línea alfa-beta para determinar cuál es la mejor elección de cara a la acción. 

Volvamos ahora a nuestro programa RISITAS. Recordemos que al principio del ca- 
pítulo observamos la posición de apertura del tablero y que el ordenador generó una lista 
de las jugadas que estaba considerando. Las jugadas eran las siguientes: 


71 ALA 62 
73 ALA 64 
73 ALA 62 
73 ALA 65 
73 ALA 64 
77 ALA 68 
77 ALA 66 


El ordenador determina que todas éstas son jugadas en las que no se hace ninguna 
captura pero son ““seguras”” e iguales en cuanto a su valor, por tanto, escoge una de ellas 
al azar y mueve, como vemos, de la casilla 71 a la 62: 


ORDENADOR: o PERSONA: 0 

f 12345678 

ge 00008 

7.000 7 

6 D... 6 

Sila e 

pe db o. . 4 

Siss.s. 3 

Er PPP EZ 

Ñ 1-P.P.RPIP 1 
12345578 


De hecho, el valor de las jugadas puede no ser el mismo en todos los casos, ya que el 
hecho de avanzar hacia el centro del campo, siempre que sea posible hacerlo, tiene un 
valor en sí mismo, pero el programa carece de la información necesaria, porque no se la 
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hemos facilitado, para hacer una valoración a este respecto y, por tanto, cree que todas 
las jugadas son iguales (y actúa de acuerdo con esa creencia). 

Se introduce entonces la respuesta del jugador humano, utilizando un número, com- 
puesto por uno de los de las hileras verticales seguido de otro de los marcados en la parte 
inferior del tablero (o en la superior), para marcar la casilla “desde la”? que se va a 
mover y luego, cuando éste haya aparecido, siguiendo el mismo procedimiento para 
marcar la casilla ““a la”? que se va a llegar: 


A e 


MUEVO DESDE LA CASILLA? 2 
A LA CASILLA? 


de 
cr a 


El tablero vuelve a imprimirse y el ordenador revela las jugadas que está consi- 
derando: 


ORDENADOR: 0 FERSONA: O 


12345678 


F+HHASOMONO 
+HNUHPomosyO 


12345678 


ESTOY CONSIDERANDO MOVER DESDE LA CASILLA 3 
ESTOY CONSIDERANDO MOVER DESDE LA CASILLA 75 
ESTOY CONSIDERANDO MOVER DESDE LA CASILLA 75 
ESTOY CONSIDERANDO MOVER DESDE LA CASILLA 77 
ESTOY CONSIDERANDO MOVER DESDE LA CASILLA 77 
ESTOY CONSIDERANDO MOVER DESDE LA CASILLA 62 
ESTOY CONSIDERANDO MOVER DESDE LA CASILLA 62 


DDDDDDD 
LN 
D 
o 
[01] 


Unas cuantas jugadas después, el tablero presenta esta situación (en esta impresión no 
se muestran todas las posibles jugadas del ordenador): 


ORDENADOR: O PERSONA: O 


12345678 


NAPO 
n o 
»=NPnmnosOo 


12345678 


ESTOY CONSIDERANDO MOVER DESDE LA CASILLA 82 
ESTOY CONSIDERANDO MOVER DESDE LA CASILLA 82 
ESTOY CONSIDERANDO MOVER DESDE LA CASILLA 64 
ESTOY CONSIDERANDO MOVER DESDE LA CASILLA 64 


LA 73 
LA 71 
LA 53 
LA 53 


DDDD 


El ordenador no puede comer ninguna ficha al adversario y todas las jugadas posi- 
bles pueden clasificarse como **buena, segura””. El ordenador sigue jugando, escogien- 
do al azar entre las jugadas que ha descubierto y almacenado como igualmente buenas 
(al menos, bajo su propio punto de vista): 


ORDENADOR: O PERSONA: O 


12145678 


+aNAJAOoONJO 
o 
o 

nm HiíJ4Bpcomo JO 


12345678 


MUEVO DESDE LA CASILLA? 37 
A LA CASILLA? 48 


ORDENADOR: 0 PERSONA: O 


12345678 


2NdPimosO 
D o 
o 
2=NUpPomo so 


12345678 


La situación se hace ahora un poco más compleja. Las fichas del adversario están 
muy cerca unas de otras, de modo que existe la posibilidad de mover a una situación de 
peligro. Por ejemplo, si el ordenador moviera de la casilla 66 a la 57, lo más probable es 
que la respuesta del jugador humano fuera comer esa ficha utilizando su ficha de la casi- 
lla 48. El mecanismo de búsqueda del programa descubre y revela esto. Recordemos que 
el programa intenta continuamente asegurarse de que su puntuación después de cada 
jugada sea la mejor posible y, al mismo tiempo, de que no deja al jugador humano la 
posibilidad de aumentar su puntuación. El mover de la casilla 66 a la 57 iría en contra de 
estos dos objetivos, de modo que un programa que procediera en este sentido e hiciera 
esta jugada —dadas todas las jugadas alternativas que, de hecho, existen en este mo- 
mento— sería un programa de lo más pobre. 

Afortunadamente, RISITAS sí que es capaz de darse cuenta de unos peligros tan ele- 
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mentales y, por tanto, mueve de la 73 a la 62, que es una jugada clasificada como “*bue- 
na, segura”. 


ORDENADOR: O PERSONA: O 


SE 
o 
o 
-NdAdpomno JO 


12345678 


MUEVO DESDE LA CASILLA? 17 
A LA CASILLA? 26 


ORDENADOR: 0 FERSONA: O 
12345678 
g .0.08 
To. D. 7 
6 ..006 
5000. 5 
4... PA 
PPP. 3 
2 PAPER 2 
lo... 1 
12345678 


MUEVO DESDE LA CASILLA? 
A LA CASILLA? 37 


AN 
Mm 


Y la partida continúa: 


ORDENADOR: O FERSONA: O 


12345678 


P-NdpanoysoO 
o 
o 
o 
SAS 


12345678 


ORDENADOR: 0 FERSONA: 0 


SE] 
o 
Do 
o 
Hd cm0o yo 


pi MUEVO DESDE LA CASILLA? 24 
12345678 A LA CASILLA? 235 


Son muy pocas ahora las jugadas fáciles (““buena, segura””) de que dispone el progra- 
ma y hace una, avanzando desde la casilla 55 al peligro que supone la 44 (por parte de la 
ficha del contrincante situada en la casilla 33), con la que parece cometer su primer 
error. El jugador humano responde comiéndole esa ficha, por lo que recibe la más since- 
ra felicitación del ordenador. 


ORDENADOR: 0 FERSONA: O 


12345678 


PPE. 


SE 
o o 
n o 
dd pomo JO 


MUEVO DESDE LA CASILLA? 233 
mm A LA CASILLA? 55 
127345678 EIEN HECHO 


Por supuesto, el jugador humano ha movido a una posición peligrosa, un hecho que 
RISITAS observa enseguida. Informa de la jugada que ha encontrado y que está a punto 
de realizar. 

ORDENADOR: 0 PERSONA: 1 


123453678 


RRA 
o 
- o 
Y 
SE] 


12345678 


e 
] 
essa MOVIENDO DESDE LA CASILLA 66 A LA 44 SE CAFTURA EN LA CASILLA 


cn 
cn 


+> CAFTURA REALIZADA 
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El marcador está ahora empatado a uno. Recuerde que se marca un punto por cada 
ficha del contrincante que se captura o por cada ficha propia que uno consiga colocar en 
la última hilera del lado opuesto del tablero. En breve veremos en acción este segundo 
método de marcar puntos. 

Afortunadamente, el programa, después de haber comido, no se ha situado en una 
posición en la que pueda ser comido a su vez: 


ORDENADOR: 1 PERSONA: 1 


as 


SE 
o 
o 
ms) 

HH Ppcoro yo 


12345678 


MUEVO DESDE LA CASILLA? 48 
A LA CASILLA? 57 


El programa sabe que puede avanzar hasta ponerse al lado de una ficha enemiga, sin 
correr ningún riesgo por ello, puesto que cuenta con toda una retaguardia que impide 
que aquélla pueda comerle; así pues, mueve de la casilla 51 a la 42: 


ORDENADOR: 1 FERSONA: 1 AS 


EAN 
12345678 y 
A : => 


Raid pomoeo so 
o 
A TD 

2 Ndis0om0o yO 


12345678 


MUEVO DESDE LA CASILLA? 237 ¡L. ] 
A LA CASILLA? 48 


Unas cuantas jugadas después, el programa tiene ante sí un montón de posibilidades: 
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ORDENADOR: 1 PERSONA: 1 


-HNHAporyo 
o 
ms] 
+Hd4pP00r0 


pa E 12345678 


MOVIENDO DESDE LA CASILLA 44 A LA 26 SE CAPTURA EN LA CASILLA 55 
ESTOY CONSIDERANDO MOVER DESDE LA CASILLA 44 ALA 33 
MOVIENDO DESDE LA CASILLA 33 A LA 11 SE CAPTURA EN LA CASILLA 22 


>> CAPTURA REALIZADA 
=- HE CAFTURADO Y LLEGADO EN LA CASILLA 11 A LA ULTIMA FILA 


ñ 


RISITAS ha escogido la mejor jugada posible dada la situación del tablero: comer 
una ficha al adversario y terminar al mismo tiempo en la última hilera del lado opuesto 
del tablero (en la 11); gana así dos puntos (y desaparece posteriormente del tablero). 

Las posibilidades con que cuenta el jugador humano no son muy sabrosas que diga- 
mos. La ficha situada en la casilla 35 se encuentra atacada por la ficha del ordenador si- 
tuada en la 44 y no parece que haya modo alguno de evitar ese peligro, ya que ni puede 
moverla ni puede comer con ella la ficha del ordenador. El jugador humano ignora esta 
amenaza, ya que nada puede hacer por salvar la ficha, y se esfuerza por aproximarse al 
lado opuesto del tablero con alguna de sus fichas (amenazando, ligeramente sólo, por- 
que esta misma ficha carece de protección, la ficha del ordenador que ocupa la casi- 
lla 75): 


= 


ORDENADOR: 3 PERSONA: 1 
| | 12345678 


Nooo 
o 
aj 

== HNHdWds0onoJOoO 


MUEVO DESDE LA CASILLA? 57 
A LA CASILLA? 66 


RISITAS decide no comer la ficha situada en la casilla 65 para hacerlo con la de la 
casilla 35, colocándose así en la 26. El jugador humano le anuncia entonces que va a co- 
mer la ficha de la casilla 75, y el ordenador le felicita por ello: 


ORDENADOR: 4 FERSONA: 1 E 
12345678 7] 
.. «0 
. [a] 


44420030 
TT 
o 
(e NS] 
ms] . 
2 
ipPm0o so 


12345678 ps 
MUEVO DESDE LA CASILLA? 66 |) 
A LA CASILLA? 84 
BIEN HECHO 


El jugador humano ha ganado dos puntos con este salto, ya que ha terminado en la 
última hilera del lado opuesto del tablero. El ordenador lleva cuatro puntos (le falta 
uno para ganar) y el humano, tres: 


NE: 
ORDENADOR : 4 PERSONA: 2 SE 
ad 


12345678 


«Da 


NAPO 
o 
o 
-Nd4Aao0oJO 


Una de las prioridades dentro de la jerarquía de jugadas establecidas por RISITAS es 
la de mover a la última hilera del lado opuesto al suyo siempre que tenga ocasión de 
hacerlo. 


ESTOY MOVIENDO HACIA LA ULTIMA FILA DESDE 26 


Esta jugada, por supuesto, le otorga la victoria al ordenador: 


ORDENADOR: 5 PERSONA: 3 


-NdWd4puouoyso 
. o . 
»= NH YH)P0om0 30 


12345678 


EL JUEGO SE HA TERMINADO 


YO SOY EL VENCEDOR 


Cómo funciona el programa 


Al igual que otros programas de este libro, RISITAS está construido en torno a un 
bucle principal que se ejecuta una y otra vez hasta satisfacer una condición determina- 
da. Dentro de ese bucle hay un número de llamadas a las diferentes subrutinas. 


REM RISITAS 


GOSUB 2070: REM INICIALIZACION 


GOSUE 1760: REM IMPRESION 
REM ** EL CICLO PRINCIPAL 
GOSUE 190: REM MOVIMIENTO 
GOSUB 1760: REM IMPRESION 
IF MO > 4 THEN 120 

GOSUB 1950: REM ACEPTA EL 
PERSONA 

GOSUB 1760: REM IMPRESION 
IF MP < 5 THEN 50 

REM 4306 3 dd dd Md dd 


DEL TABLERO 
COMIENZA +. 
DEL ORDENADOR 
DEL TABLERO 


MOVIMIENTO DE LA 


DEL TABLERO 


Como puede verse si se observa el bucle principal, es precisamente éste el que facilita 
la tarea de comprender cómo está construido el programa. Asimismo, simplifica la tarea 
de encontrar los errores. Por ejemplo, si el programa no imprimiera el tablero correcta- 
mente, lo más sensato sería mirar primero la subrutina que empieza en la línea 1760, la 
rutina llamada IMPRESION DEL TABLERO. 

La acción pasa primero por-la rutina de INICIACION, a partir de la línea 2070: 
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2070 REM INICIALIZACION 

2080 DEFINT A - Z 

2090 CLS 

2100 RANDOMIZE 

2110 DIM A(110): REM TABLERO Y ESPACIOS ALREDEDOR 
Y DETRAS DE LA PIEZA 

2120 DIM G(3): REM ALMACENA UNA BUENA CAPTURA SE 
GURA 

2130 DIM S(3): REM ALMACENA UNA CAPTURA SEGURA 

2140 DIM T(18): REM ALMACENA OTRAS CAPTURAS. TAM 
BIEN SE USA PARA ALMACENAR MOVIMIENTOS DE 


NO-CAPTURA 
2150 E = ASC(" "): REM CASILLA "BLANCA” VACIA 
2160 B = ASC("."): REM PCASILLA *NEGRA” VACIA 
2170 O = ASC("0"): REM PIEZA DEL ORDENADOR 
= 


2180 P = ASC("P"): REM PIEZA DE LA PERSONA 
2190 PM = O: REM MARCADOR DE LA PERSONA 
2200 OM = O: REM MARCADOR DEL ORDENADOR 
2210 REM ** INICIALIZACION DEL TABLERO %s* 
2220 FOR J = 10 TO BO STEF 10 
2230 FOR K = 1 TO 8 
2240 READ Xi A(J + K) = X 
2250 NEXT K 
2260 NEXT J 
2270 RETURN 
2280 REM ved de de de 06 6 6 06 6 06 6 6 MM DEM DD DA III 
2290 DATA 80, 32, 80, 32, 80, 32, 80, 32 
2300 DATA 32, 80, 32, 80, 32, 80, 32, 80 
2310 DATA 46, 32, 46, 32, 46, 32, 46, 32 
2320 DATA 32, 46, 32, 46, 32, 46, 32, 46 
2330 DATA 46, 32, 46, 32, 46, 32, 46, 32 
2340 DATA 32, 46, 32, 46, 32, 46, 32, 46 
2350 DATA 79, 32, 79, 32, 79, 32, 79, 32 
2360 DATA 32, 79, 32, 79, 32, 79, 32, 79 


Aquí se dimensionan varias matrices. Son las siguientes: 


A - para contener el tablero y las casillas ““fuera del tablero”” que le rodean; 

G - que actúa de almacén para las jugadas clasificadas como “buena captu- 
ra, segura”? que encuentre durante un peinado del tablero: 

S - tiene la misma función que G, pero las jugadas que almacena son menos 
deseables, las definidas como “*seguras””; 

T - esta matriz contiene las jugadas o capturas que no pueden incluirse en 
ninguna de las dos clasificaciones anteriores. 


Las sentencias REM identifican las variables que se asignan aquí, representando E 
una casilla blanca vacía, B una casilla negra vacía (que en la pantalla aparece como un 
punto), O las fichas del ordenador y P las fichas del jugador humano. Parece adecuado 
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utilizar nombres variables que nos recuerden lo que éstas representan. MP contiene los 
puntos que va marcando el jugador humano y MO, los del ordenador. 

Las líneas 2210 a 2260 leen la configuración inicial del tablero en la matriz A. 

El ciclo principal nos avisa de cómo se comportará el ordenador a partir de este pun- 
to. No nos detendremos a observar cómo se imprime el tablero ni cómo se aceptan las 
jugadas del jugador humano porque no nos parece que éstos sean problemas muy impor- 
tantes en la programación. 

Cuando el programa piensa sus jugadas sigue —como ya señalábamos anteriormen- 
te— un orden jerárquico estricto. Se fijan tres variables a cero con las líneas 220, 230 
y 240; estas variables se utilizan cada vez que se ejecuta el programa. Las sentencias 
REM las explican: 


180 REM 3446136 1 363 3646 36-36 46 36 26 36 46 26 46d A Md 

190 REM MOVIMIENTO DEL ORDENADOR 

200 REM 4441696 16 363616 3616 36 16 16 6 dE 26 dd E A 

210 REM BUSQUEDA PARA REALIZAR CAPTURAS 

220 GSEGURA = O: REM PARA CONTABILIZAR LAS CAPTU 
RAS BUENAS DE LAS FIEZAS AMENAZADAS DE LA PER 
SONA 

230 CSEGURA = O: REM PARA CONTABILIZAR LAS CAPTU 
RAS SEGURAS QUE NO ESTAN AMENAZADAS POR EL OR 
DENADOR 

240 CAPTURA = O: REM PARA CONTABILIZAR OTRAS CAP 
TURAS HECHAS 


Los ““almacenes”” están vacíos: 


po 250 FOR J = 1 TO 3 2] 
| 260 G(J) = Or REM EL ALMACENAMIENTO DE CAPTURAS | 
| y BUENAS ESTA VACIO | 
| 270 S(J) = Or REM EL ALMACENAMIENTO DE CAPTURAS 

poe SEGURAS ESTA VACIO 

| / 280 T(J) = Or REM EL ALMACENAMIENTO DE OTRAS CAP 

NA TURAS ESTA VACIO 

PO) 290 NEXT J 


Empieza ahora el ordenador el primer peinado del tablero, omitiendo el proceso de 
evaluación (véase la línea 320) si la casilla que está considerando no tiene una ficha suya. 
Merece la pena seguir en detalle la secuencia completa de la captura. Las sentencias REM 
explican el código casi completamente: 
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FOR J 80 TO 30 STEF -10 

FOR K 1708 

IF A(J + K) <> O THEN 390: REM EVITA LOS CAL 

CULOS EN EL CASO DE QUE NO HAYA UNA PIEZA DEL 

ORDENADOR 

REM xx CAPTURA HACIA EL LADO DERECHO *x* 

X=] +K- 9 Y=J]<“*K- 18: Z2=J]3“+K- 27 

1 M= -11 

IF A(X) = F AND A(Y) = B THEN GOSUB 700: REM 

CAFTURA ENCONTRADA 

REM ** CAPTURA HACIA EL LADO IZQUIERDO +x* 

X=] + K- 111 Y=J + K- 221Z=J]<“+K- 

331 M=-9 

IF A(X) = H AND A(Y) = B THEN GOSUE 700: REM 
CAFTURA ENCONTRADA 

NEXT K 

NEXT J 

IF GSEGURA + CSEGURA + CAPTURA = O THEN 980: 

REM NO SE HA ENCONTRADO CAFTURA 

REM ** AHORA SE ELIGE LA CAFTURA QUE SE VA A 
HACER 4 

PRINT: FRINT TAE(8) ">> CAFTURA REALIZADA" 

FOR T= 1 TO 1000: NEXT T 

IF GSEGURA <> O THEN 500 

IF CSEGURA <:* O THEN 670 

REM *%* AHORA SE ELIGE DE TODAS LAS FOSIBLES 
CAFTURAS *%x* 

MOVIMIENTO = T(INT(RND(1) * CAFTURA) + 1) 

GOTO 540 

REM ** SE ELIGE UNA EUENA CAPTURA ** 

REM ** SELECCION DE LOS MOVIMIENTOS ALMACENA 
DOS +*+* 

MOVIMIENTO = G(INT(RND(1) * GSEGURA) + 1) 

REM *x* REALIZA UN MOVIMIENTO se 

INICIO = INT(MOVIMIENTO/100) 

ED = MOVIMIENTO -— 100 * INICIO 

ACINICIO) = E 

A(INICIO - ED) = E 

A(INICIO - 2 * ED) = O 

MO = MO + 1 

REM *%* COMFROBACION DE FUNTOS EXTRAS, CASO DE 
HABER LLEGADO A LA ULTIMA FILA " 

IF INICIO -— 2 * ED > 18 THEN RETURN 

A(INICIO - 2 * ED) = B 

MO = MO + 1 

PRINT "HE CAPTURADO Y LLEGADO EN LA CASILLA " 

3 INICIO -— 2 * ED; "A LA ULTIMA FILA" 

FOR T = 1 TO 20002 NEXT T 

RETURN 

REM *% CAPTURA SEGURA +*x* 

MOVIMIENTO = SC(INT(RND(1) * CSEGURA) + 1) 

GOTO 540 

REM *x* SE VERIFICA LA CAPTURA PROPUESTA FOR 
MOTIVOS DE SEGURIDAD x*x+* 

REM *%* SE COMPRUEBA LA CASILLA INFERIOR EN LA 


MISMA DIRECCION EN QUE SE PRETENDE MOVER 


720 PRINT "MOVIENDO DESDE LA CASILLA "3 J + K; 
"A LA "3 Y; "SE CAPTURA EN LA CASILLA " 
3OX 
730 FOR T = 1 TO 900: NEXT T 
740 IF A(Z) = P THEN 920: REM SE ALMACENA COMO 
UNA CAPTURA NO SEGURA 
730 REM ** SE VERIFICA LA CASILLA EN OTRA DIREC 
CION DE LA QUE SE PRETENDE MOVER" 
760 IF A(Y + M) = P AND A(Y —- M) = B THEN 920 
770 REM ** AHORA SE VERIFICA SI EL MOVIMIENTO DEJA 
RIA LA FIEZA EXPUESTA A LA CAPTURA DE LA 


PERSONA *x* 
780 IF A(J + K + M) = 0 AND A(Y + K + 2% M) =P 
THEN 920 


790 REM ** SI SE ALCANZA ESTE PUNTO ENTONCES LA 
CAPTURA ES *SEGURA” *%*e 
800 REM ** ALMACENA ESTE MOVIMIENTO *x* 
810 CSEGURA = CSEGURA + 1 
820 S(CSEGURA) = 100 * (J + K) + 20 + M: REM 
830 REM ** AHORA VEREMOS SI ESTO ES REALMENTE UNA 
CAPTURA *BUENA” O * SEGURA” 
840 VERIFICAR = GSEGURA 
830 IF Y + 2 * M< 1 THEN RETURN 
860 IF A(Y + M) = PF AND A(Y — (20 + M)) <> B AND 
AY + 2 * M) = B THEN GSEGURA = GSEGURA + 1 
870 IF VERIFICAR = GSEGURA THEN RETURN : REM +* 
ESTE MOVIMIENTO NO ES UN ”RBUEN MOVIMIENTO" *x* 
880 REM ** ALMACENAMIENTO DE UN BUEN MOVIMIENTO 
SEGURO *+* 
890 PRINT "ESTOY CONSIDERANDO MOVER DESDE LA CASI 
LLA "3 J + K3 "ALA "5 M+ 20 + J + K 
900 G(GSEGURA) = 100 * (J + K) + 20 + M 
910 RETURN 
920 REM ** ALMACENA UNA CAPTURA NO SEGURA +*x* 
930 CAPTURA = CAFTURA + 1 
940 PRINT "ESTOY CONSIDERANDO MOVER DESDE LA CASI 
LLA "3 J + K3 "ALA "5 M+ 20 + J + K 
930 T(CAFTURA) = 100 * (J + K) + 20 + M 
9606 RETURN 


Se ha de observar que la jugada propuesta se almacena en la línea 820 como un solo 
número. El resultado de esta manipulación es un número de cuatro cifras en el cual las 
dos primeras representan la casilla “desde la que se mueve”” (o INICIO, como se la 
llama en varias partes del programa) y las otras dos cifras representan la casilla *“a la que 
se va a llegar”” (llamada ED en el programa; END hubiera producido colisiones en mu- 
chos sistemas, si fuera una palabra reservada de BASIC). 

La rutina 1510 descodifica el número de cuatro cifras y hace la jugada: 
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1510 INICIO = INT(MOVIMIENTO/100) 
1520 ED = MOVIMIENTO - 100 * INICIO 
1530 A(CINICIO) = B 

1540 A(ED) = O 

1550 RETURN 


Si el programa ha encontrado una jugada ““buena captura, segura”? (o más de una), 
la hace y después deja que mueva el jugador humano. Si no ha encontrado una jugada 
“buena captura, segura””, pero tiene una de las clasificadas como “segura”, hace ésa. 
En el caso de no contar con ninguna de estas dos, hará una de las clasificadas simple- 
mente como “captura”. 

De fallar todas ellas, el programa pasa al siguiente elemento de su orden jerárquico 
de jugadas y mueve para proteger la ficha que encuentre amenazada por el jugador 
humano. 


980 REM ** MOVIMIENTO PARA PROTEGER LA PIEZA BAJO 
AMENAZA *+* 
¡A 990 MOVIMIENTO = O de 
qe 1000 J = 80 A 
| 1010 k = 1 
1020 Q= J +Kk 
| 1030 IF A(Q) <> O THEN 1110: REM NO SE CONDIDERA 
ESTA CASILLA, PORQUE NO HAY EN ELLA NINGUNA ENS 
PIEZA DEL ORDENADOR 
1040 IF A(Q + 9) = BAND A(Q - 9) = P AND A(Q + 
O 18) = O THEN MOVIMIENTO = 100 * (Q + 18) + LO) 
Q+9 1, 
| y; 1050 REM ** ELIMINACION ALEATORIA DE ESTE MOVIMIEN 
ha TO SI SE EXPONE A UNO SUBSIGUIENTE +%* o 
[| (0) 1. 1060 IF MOVIMIENTO <> O AND A(Q -— 2) =P ANDA(Q+ , ( 
20) = BAND RND(1) > .5 THEN 1510 
| y 1070 IF A(Q + 9) = B AND A(Q — 9) = P AND A(Q + 
| e de 20) = O THEN MOVIMIENTO = 100 * (Q + 20) + O 
52 Q + 9: GOTO 1510 5 
1080 IF A(Q + 11) = B AND A(Q - 11) = P AND A(Q + 
22) = O THEN MOVIMIENTO = 100 * (Q + 22) + Qi 
O-4 + 11 p 
|. 1090 IF MOVIMIENTO <> O AND A(Q + 2) = P AND A(Q + 
22) = B AND RND(1) > .5 THEN 1510 
A , 1100 IF A(Q + 11) = B AND A(Q — 11) =P ANDA(Q+ , 
0 20) = O THEN MOVIMIENTO = 100 * (Q + 20) + Q : 
+ 11: GOTO 1510 
1110 IF K< 8 THEN K = K + 12 GOTO 1020 
O | 1120 IF J > 10 THEN J = J - 10: GOTO 1010 


Si la línea 1040 encuentra tal jugada, la siguiente línea comprobará que ésta no pone 
en peligro ninguna otra ficha. De hacerlo, la jugada propuesta será rechazada en un 
50 por 100 de los casos. Este no es un mecanismo de elección muy sofisticado que diga- 
mos, pero garantiza que el ordenador no siempre moverá a ciegas cuando se trata de 
proteger una de sus fichas (una ceguera que el jugador humano podría descubrir y explo- 
tar a su favor) y contribuye, además, a que las partidas no siempre sean iguales. 

El conseguir poner una ficha en la última hilera del lado opuesto del tablero puntúa 
igual que el comer una ficha del adversario; así pues, el siguiente elemento en el orden 
jerárquico de jugadas es mover a una casilla de esta hilera, siempre que sea posible. La 
rutina que empieza en la línea 1140 se encarga de ello. Antes explicaba cómo la secuencia 
de casillas comprobadas en esta sección tenía por objeto el que las fichas situadas en las 
casillas centrales entraran en el santuario antes que aquellas situadas en las de los ex- 
tremos: 


1140 REM ** NO SE ENCUENTRA CAFTURA. SE INICIA BUS 
QUEDA PARA ”DESAPARECER” EN LA ULTIMA FI 
LA *x 

1150 MOVIMIENTO = O 

1160 REM PRIMERO SE HAN COMPROBADO MOVIMIENTOS NO 
ACONSEJABLES, ASI QUE PUEDEN SER REEMPLA 
ZADOS POR OTROS MEJORES 


1170 1F A(22)= O AND A(11)= B THEN MOVIMIENTO = 22 
1180 IF A(28)= O AND A(17)= B THEN MOVIMIENTO = 28 
1190 1F A(22)= O AND A(13)= B THEN MOVIMIENTO = 22 
1200 IF A(26)= O AND A(17)= B THEN MOVIMIENTO = 26 
1210 IF A(26)= D AND A(15)= B THEN MOVIMIENTO = 26 
1220 IF A(24)= O AND A(15)= B THEN MOVIMIENTO = 24 


1230 IF A(24)= O AND A(13)= B THEN MOVIMIENTO 

1240 IF MOVIMIENTO = O THEN 1310 

1250 PRINT: PRINT "ESTOY MOVIENDO HACIA LA ULTIMA 
FILA DESDE"3 MOVIMIENTO 

1260 FOR T = 1 TO 2000: NEXT T 

1270 A(MOVIMIENTO) = B 

1280 MD = MO + 1 

1290 RETURN 


Si esto no fuera posible, el programa peina el tablero para encontrar una jugada 
correcta y que no le ponga en peligro. La variable MOVIMIENTO cuenta las jugadas y 
la línea 1500 se encarga de escoger la jugada que se va a realizar: 


1310 REM +** ALMACENA MOVIMIENTOS DE NO-CAPTURA +. 
1320 CMOVIMIENTO = Oz REM 

1330 FOR J = 80 TO 30 STEP -10 

1340 FOR K = 1 TO 8 

1350 IF A(J + K) <> O THEN 1460 


4 11360 X =J] +K- 9 Y =J] +K- 18: Z=J]+K-20 1: Y 
¡13700 =3J+K+2 
1380 IF A(X) <> B> THEN 1460 
O) 1390 IF A(Y)= P OR A(Z) =P AND A(Q) = B THEN 1460 ; () 
1 1400 GOSUB 1560 poe 
11410 X=] + K 1118 Y =J+K- 221 Z72=J+K- 20 | 
| 1420Q=J+K- 2 E yd 
1430 IF A(X) <> B THEN 1460 2, 
1440 IF A(Y)= P OR A(Z) = P AND A(Q) = B:THEN 1460 
1450 GOSUB 1560 
A 111460 NEXT k lee 
O (1470 NEXT 3 SS 
; 1480 IF CMOVIMIENTO = O THEN 1630 
| 1490 REM ** REALIZA EL MOVIMIENTO *«* 
1500 MOVIMIENTO = T(INT(RND(1) * CMOVIMIENTO) + 1) 


Si todavía no ha conseguido encontrar una jugada, RISITAS intenta encontrar cual- 
quier jugada que se atenga a las reglas del juego. Escoge al azar entre 200 jugadas (con- 
tándolas con la variable L) y si tampoco así la encuentra, se da por vencido con la lí- 
nea 1710: 


16730 REM MOVIMIENTO ALEATORIO DE NO-CAFTURA 
1640 FRINT "BUSCO ALEATORIAMENTE UN MOVIMIENTO 


LEGAL" 
1650 L = 0 
1660 L =L + 1 
1570 J = 10 * INT(RND(1) * 8 + 1) 
1680 K = INT(RND(1) * 8 + 1) 


1690 IF A(JY + K) = O THEN 1720 

1700 IF L < 200 THEN 1660 

1710 PRINT: PRINT "TE CONCEDO EL JUEGO": END 

1720 IF A(JY + K - 9) = B THEN MOVIMIENTO = 100 +* 
(JJ + K) + I + K- 9 GOTO 1510 

1730 IF A(JY + K - 11) = B THEN MOVIMIENTO = 100 * 
(dd + K) +] +K- dd: GOTO 1510 

1740 GOTO 1700 


Aquí tenemos el listado completo de RISITAS (para usuarios del ZX Spectrum, véase 
Apéndices): 


| C) 10 REM RISITAS 
20 GOSUBE 2070: REM INICIALIZACION 


3O GOSUB 1760: REM IMPRESION DEL TABLERO ¡ 
40 REM +** EL CICLO PRINCIPAL COMIENZA **% O 
50 GOSUB 190: REM MOVIMIENTO DEL ORDENADOR í 

; 60 GOSUB 1760: REM IMPRESION DEL TABLERO 
| 70 IF MO > 4 THEN 120 a 

de Ek) 80 GOSUE 1950: REM ACEPTA EL MOVIMIENTO DE LA 'ON 
| PERSONA ; | 


81 


90 
100 


150 
160 


GOSUB 1760: REM IMPRESION DEL TABLERO 

IF MP < 5 THEN 50 

REM dd 1636 46 de dd dd dE M6 dd 

REM FINAL DEL JUEGO 

PRINT: PRINT "EL JUEGO SE HA TERMINADO" 

PRINT 

IF MP > MO THEN PRINT "TU HAS GANADO" 

IF MO > MP THEN PRINT "YO SOY EL VENCEDOR" 

END 

A 

REM MOVIMIENTO DEL ORDENADOR 

REM 44260636 6 16 dd dd 16 16 dd E E HA A IIA 

REM BUSQUEDA PARA REALIZAR CAPTURAS 

GSEGURA = Oz REM PARA CONTABILIZAR LAS CAPTU 

RAS BUENAS DE LAS PIEZAS AMENAZADAS DE LA PER 

SONA 

CSEGURA = O: REM PARA CONTABILIZAR LAS CAPTU 

RAS SEGURAS QUE NO ESTAN AMENAZADAS POR EL OR 

DENADOR 

CAPTURA = O: REM PARA CONTABILIZAR OTRAS CAP 

TURAS HECHAS 

FOR J = 1 TO 3 

G(J) = O: REM EL ALMACENAMIENTO DE CAPTURAS 

BUENAS ESTA VACIO 

S(J) = O: REM EL ALMACENAMIENTO DE CAPTURAS 

SEGURAS ESTA VACIO 

T(J) = Oz REM EL ALMACENAMIENTO DE OTRAS CAP 

TURAS ESTA VACIO 

NEXT J 

FOR J = 80 TO 30 STEP -10 

FOR K = 1 TO 8 

IF A(J + K) <> O THEN 390: REM EVITA LOS CAL 

CULOS EN EL CASO DE QUE NO HAYA UNA PIEZA DEL 

ORDENADOR 

REM *x* CAPTURA HACIA EL LADO DERECHO +* 

X= J +K- 9 Y=J]““K-18Zz=JI2+K- 27 

1M= -11 

IF A(X) = P AND A(Y) = B THEN GOSUB 700: REM 

CAPTURA ENCONTRADA 

REM ** CAPTURA HACIA EL LADO IZQUIERDO +*x* 

X= J] + K- 11: Y =J] +K- 221 Z=J]3<“K- 

33: M= -9 

IF A(X) = H AND A(Y) = B THEN GOSUB 700: REM 
CAPTURA ENCONTRADA 

NEXT K 

NEXT J 

IF GSEGURA + CSEGURA + CAPTURA = O THEN 980: 

REM NO SE HA ENCONTRADO CAPTURA 

REM ** AHORA SE ELIGE LA CAPTURA QUE SE VA A 
HACER ** , 

PRINT: PRINT TAB(8) ">> CAPTURA REALIZADA" 

FOR T= 1 TO 1000: NEXT T 

IF GSEGURA <> O THEN 500 

IF CSEGURA <> O THEN 670 

REM x** AHORA SE ELIGE DE TODAS LAS FOSIBLES 
CAPTURAS +*x+* 

MOVIMIENTO = T(INT(RND(1) * CAPTURA) + 1) 


GOTO 540 

REM ** SE ELIGE UNA BUENA CAPTURA *x%* 

REM *x* SELECCION DE LOS MOVIMIENTOS ALMACENA 
DOS *>* 

MOVIMIENTO = G(INT(RND(1) * GSEGURA) + 1) 

REM x*x* REALIZA UN MOVIMIENTO sexe 

INICIO = INT(MOVIMIENTO/100) 

ED = MOVIMIENTO -— 100 * "INICIO 

A(INICIO) = E 

A(INICIO - ED) = E 

ACINICIO - 2 * ED) = O 

MOD = MO + 1 

REM *x* COMPROBACION DE PUNTOS EXTRAS, CASO DE 
HABER LLEGADO A LA ULTIMA FILA " 

IF INICIO - 2 * ED > 18 THEN RETURN 

A(INICIO — 2 * ED) = B 

MO = MO + 1 

PRINT "HE CAFTURADO Y LLEGADO EN LA CASILLA " 

5 INICIO —- 2 * ED; "A LA ULTIMA FILA" 

FOR T= 1 TO 2000: NEXT T 

RETURN 

REM ** CAPTURA SEGURA *x%*e 

MOVIMIENTO = SC(INT(RND(1) * CSEGURA) + 1) 

GOTO 540 

REM ** SE VERIFICA LA CAPTURA PROPUESTA POR 
MOTIVOS DE SEGURIDAD *x* 

REM *%* SE COMFRUEBA LA CASILLA INFERIOR EN LA 
MISMA DIRECCION EN QUE SE PRETENDE MOVER 
+A 

PRINT "MOVIENDO DESDE LA CASILLA "3 J + K; 

"A LA "3 Y; "SE CAPTURA EN LA CASILLA " 
gx 

FOR T= 1 TO 900: NEXT T 

IF A(Z) = P THEN 920: REM SE ALMACENA COMO 

UNA CAPTURA NO SEGURA 

REM +%* SE VERIFICA LA CASILLA EN OTRA DIREC 
CION DE LA QUE SE PRETENDE MOVER" 

IF A(Y + M) = P AND A(Y -— M) = B THEN 920 

REM ** AHORA SE VERIFICA SI EL MOVIMIENTO DEJA 
RIA LA PIEZA EXPUESTA A LA CAPTURA DE LA 
PERSONA + 

IFA +K>+M) = O AND A(J + K +2 0+* Mm) =P 

THEN 920 

REM *%* SI SE ALCANZA ESTE PUNTO ENTONCES LA 
CAPTURA ES *SEGURA” ++ 

REM %*%* ALMACENA ESTE MOVIMIENTO +x%e 

CSEGURA = CSEGURA + 1 

S(CSEGURA) = 100 * (J + K) + 20 + Mz REM 

REM ** AHORA VEREMOS SI ESTO ES REALMENTE UNA 
CAPTURA ”RBUENA” O * SEGURA” 

VERIFICAR = GSEGURA 

IF Y+2%*Mm< 1 THEN RETURN 

IF AY + M) = P AND A(Y — (20 + M)) <> B AND 

A(Y +2 * M) = B THEN GSEGURA = GSEGURA + 1 

IF VERIFICAR = GSEGURA THEN RETURN : REM ** 

ESTE MOVIMIENTO NO ES UN *BUEN MOVIMIENTO” +. 


880 
890 


900 
910 
920 
930 
940 


950 
960 
970 
980 


990 
1000 
1010 
1020 
1030 


1040 


1050 
1060 


1070 


1080 


1090 


1100 


1110 
1120 
1130 
1140 


1150 
1160 


1170 
1180 
1190 
1200 
1210 
1220 
123 


REM %* ALMACENAMIENTO DE UN BUEN MOVIMIENTO 
SEGURO *x% 

PRINT "ESTOY CONSIDERANDO MOVER DESDE LA CASI 
LLA "3 J + K53 "ALA "5 M+ 20 + J] + K 

G(GSEGURA) = 100 * (J + K) + 20 + M 

RETURN 

REM *x* ALMACENA UNA CAPTURA NO SEGURA ++ 

CAPTURA = CAPTURA + 1 

PRINT "ESTOY CONSIDERANDO MOVER DESDE LA CASI 

LLA "3 J + K3 "ALA "y M+ 20 + J + K 

T(CAPTURA) = 100 * (J + K) + 20 + M 

RETURN 

A AA 

REM x*x* MOVIMIENTO PARA PROTEGER LA PIEZA BAJO 


AMENAZA *x* 
MOVIMIENTO = O 
J = 80 
K=1 
Q=J+K 


IF A(Q) <> O THEN 1110: REM NO SE CONDIDERA 

ESTA CASILLA, PORQUE NO HAY EN ELLA NINGUNA 

PIEZA DEL ORDENADOR 

IF A(Q + 9) = B AND A(Q - 9) =P AND A(Q + 

18) = O THEN MOVIMIENTO = 100 * (Q + 18) + 

a+ 9 

REM ** ELIMINACION ALEATORIA DE ESTE MOVIMIEN 
TO SI SE EXPONE A UNO SUBSIGUIENTE ** 

IF MOVIMIENTO <> O AND A(Q - 2) = P AND A(Q + 

20) = B AND RND(1) > .S THEN 1510 

IF A(Q + 9) = BAND A(Q - 9) =P AND A(O + 

20) = O THEN MOVIMIENTO = 100 * (Q + 20) + 
Q + 9: GOTO 1510 

IF A(Q + 11) = B AND A(Q - 11) = P AND A(Q + 

22) = O THEN MOVIMIENTO = 100 * (Q + 22) + Q 

+ 11 

IF MOVIMIENTO <> O AND A(Q + 2) = P AND A(Q + 

22) = BAND RND(1) > .5 THEN 1510 

IF A(Q + 11) = B AND A(Q - 11) = P AND A(Q + 

20) = O THEN MOVIMIENTO = 100 * (Q + 20) + Q 

+ 111 GOTO 1510 

IF K< 8 THEN K =Kk + 11 GOTO 1020 

IF J > 10 THEN J = J - 10: GOTO 1010 

II ei 

REM ** NO SE ENCUENTRA CAPTURA. SE INICIA BUS 
QUEDA PARA *DESAPARECER” EN LA ULTIMA FI 
LA ** 

MOVIMIENTO = O 

REM PRIMERO SE HAN COMPROBADO MOVIMIENTOS NO 
ACONSEJABLES, ASI QUE PUEDEN SER REEMPLA 
ZADOS POR OTROS MEJORES 

IF A(22)= O AND A(11)= E THEN MOVIMIENTO 


IF A(28)= O AND A(17)= B THEN MOVIMIENTO = 28 
IF A(22)= O AND A(13)= B THEN MOVIMIENTO = 2 
IF A(26)= O AND A(17)= B THEN MOVIMIENTO = 2 
IF A(26)= O AND A(15)= B THEN MOVIMIENTO = 26 
IF A(24)= O AND A(15)= B THEN MOVIMIENTO = 24 
IF A(24)= O AND A(13)= B THEN MOVIMIENTO = 24 


1240 
1250 


1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 


1590 
1600 
1610 
16520 
1630 
1640 


1650 
1660 
1670 
1480 
1690 
1700 
1710 
1720 


1730 


1740 
1750 


IF MOVIMIENTO = O THEN 1310 
PRINT: PRINT "ESTOY MOVIENDO HACIA LA ULTIMA 
FILA DESDE"; MOVIMIENTO 

FOR T= 1 TO 2000: NEXT T 

A(MOVIMIENTO) = B 

MO = MO + 1 

RETURN 

REM 06006 6d dd Ed 6 6 IM IM DEA E ID II 

REM ** ALMACENA MOVIMIENTOS DE NO-CAPTURA +%* 

CMOVIMIENTO = O: REM 

FOR J = 80 TO 30 STEP -10 

FOR K = 1 TO 8 

IF A(J + K) <> O THEN 1460 

X= J +¿K- 9 Y=J+«eK-18Z=JJI¿3“K- 20 

Q=J]+K+2 

IF A(X) <> B THEN 1460 

IF A(Y)= P OR A(Z) = P AND A(Q) = E THEN 1460 

GOSUB 1560 

X=J+K -1138 Y =J] +K - 221 Z =J + K - 20 

Q=J+K-2 

IF A(X) <> B> THEN 1460 

IF A(Y)= P OR A(Z) = P AND A(Q) = BE THEN 1460 

GOSUB 1560 

NEXT K 

NEXT J 

IF CMOVIMIENTO = O THEN 1630 

REM *%* REALIZA EL MOVIMIENTO +, 

MOVIMIENTO = T(INT(RND(1) * CMOVIMIENTO) + 1) 

INICIO = INT(MOVIMIENTO/100) 

ED = MOVIMIENTO -— 100 * INICIO 

A(INICIO) = E 

A(ED) = 0 

RETURN 

REM %*%* ALMACENA EL MOVIMIENTO *%*e 

CMOVIMIENTO = CMOVIMIENTO + 1 

PRINT "ESTOY CONSIDERANDO MOVER DESDE LA CASI 
LLA "3 J] + K5 "A LA "5 X 

FOR T = 1 TO 800: NEXT T 

T(CMOVIMIENTO) = 100 * (J + K) + X 

RETURN 

REM 06360 dd dl dle 16 16-36-46 06 dd 6-6 06 6 06 06 6-6 dd 6 6-16 16 16 dd dd 

REM MOVIMIENTO ALEATORIO DE NO-CAPTURA 

PRINT "BUSCO ALEATORIAMENTE UN MOVIMIENTO 


LEGAL" 
L-=0 
L=L+1 
J = 10 * INT(RND(1) * 8 + 1) 
K = INT(RND(1) * 8 + 1) 


IF A(J + K) = O THEN 1720 

IF L < 200 THEN 1660 

PRINT: PRINT "TE CONCEDO EL JUEGO": END 
IFA +K- 9) = BoTHEN MOVIMIENTO = 100 +* 
(Y + K) + J] + K- 9: GOTO 1510 

IFA + K- 11) = B THEN MOVIMIENTO = 100 +* 
(d+ K) +3 +K- dd: GOTO 1510 

GOTO 1700 

REM 00 0 MIA 


REM IMPRESION DEL TABLERO 


CLS 

PRINT 

PRINT "ORDENADOR: "3 MO;5" PERSONA: "3 MP 
PRINT 

PRINT " 123453678" 

PRINT "o ' 

FOR J = 80 TO 10 STEP - 10 

PRINT " "5 3/10; 


FOR K = 1 TO 8 

PRINT CHR$(A(J + K))35 
NEXT K 

PRINT J/10 


NEXT_J 
PRINT O" " 


PRINT " 123453678" 

PRINT 

RETURN 

A AS 

REM ACEPTA EL MOVIMIENTO DE LA PERSONA 
INPUT "MUEVO DESDE LA CASILLA "5; INICIO 

IF A(CINICIO) < P THEN 1960 

INPUT " A LA CASILLA "; ED 

IF A(ED) <> B OR ABS(INICIO -— ED) > 11 AND 
A(CINICIO + ED)/2) <> O THEN 19800 1510 
A(INICIO) = B 

A(ED) =P 

IF ABS(INICIO -— ED) > 11 THEN A(CINICIO + ED) 
/ 2) = Bi: MP = MP + 12 PRINT "BIEN HECHO" 
IF ED > 80 THEN A(ED) = Bs: MP = MP + 13 PRINT 
"HAY UN PUNTO MAS PARA TI" 

FOR T = 1 TO 700: NEXT T 

RETURN 

REM 06 Hd 

REM INICIALIZACION 

DEFINT A - Z 

CLs 

RANDOMIZE 

DIM A(110): REM TABLERO Y ESFACIOS ALREDEDOR 
Y DETRAS DE LA PIEZA 

DIM G(3): REM ALMACENA UNA BUENA CAPTURA SE 
GURA 

DIM S(3): REM ALMACENA UNA CAPTURA SEGURA 
DIM T(18): REM ALMACENA OTRAS CAPTURAS. TAM 
BIEN SE USA PARA ALMACENAR MOVIMIENTOS DE 
NO-CAPTURA 


E = ASC(" "): REM CASILLA *”BLANCA” VACIA 
B= ASC("."): REM PCASILLA "NEGRA”* VACIA 
O = ASC("0"): REM PIEZA DEL ORDENADOR 
P.= ASC("P")2 REM PIEZA DE LA PERSONA 


PM = O: REM MARCADOR DE LA PERSONA 

= O: REM MARCADOR DEL ORDENADOR 
REM %** INICIALIZACION DEL TABLERO se 
FOR J = 10 TO 80 STEP 10 
FOR K = 1 TO 8 
READ X: A(J + K) = X 
NEXT K 


2260 NEXT J i 
2270 RETURN 
A A 
2290 DATA O) 
2300 DATA 
2310 DATA 
O 2320 DATA 
; 2330 DATA 
2340 DATA 
2350 DATA 
2360 DATA 


5 
El valor de los juegos 


Allá en los primeros momentos de la investigación de la inteligencia artificial se sugi- 
rió que la programación de juegos no era un trabajo que mereciera mucho la pena. El 
argumento que se esgrimía era que el esfuerzo realizado en calcular los algoritmos para 
un programa de AJEDREZ, por ejemplo, podría aplicarse mejor en la investigación de 
mecanismos que demostraran teoremas matemáticos o en programas que modelaran la 
manera en que opera el cerebro humano (dentro de los límites de lo que se entendía por 
esto entonces). 

Pero los mecanismos mediante los cuales el cerebro consigue encontrar una solución 
a un problema complejo —como el que presenta un tablero de ajedrez en medio de una 
partida— no ha dejado nunca de fascinar. Mucho antes de que existieran los ordenado- 
res (tal como los entendemos ahora) ya hubo quienes se devanaron los sesos pensando en 
cómo se podría escribir un programa de AJEDREZ. 

En 1949, Claude Shannon (cuyo trabajo comentábamos en la sección APRENDIZA- 
JE Y RAZONAMIENTO de este libro) presentó una ponencia en un congreso realizado 
en Nueva York. El trabajo se llamaba “Programming a Computer for Playing Chess”. 
El valor de éste trasciende con mucho su importancia histórica como primera obra publi- 
cada sobre el tema. Un gran número de los conceptos que Shannon estudiaba en este 
trabajo se siguen utilizando todavía hoy en los programas de AJEDREZ. 

Y lo que aún es más importante, Shannon se dio cuenta de que si se podían solucio- 
nar los problemas que entraña la programación de un ordenador para que juegue al aje- 
drez, las ideas que se sacaran de ello podrían ser muy valiosas a la hora de ayudar a las 
máquinas a desarrollar su competencia en otros campos en los que se dieran problemas 
de parecida complejidad. Señaló incluso algunos de esos campos: el diseño de circuitos 
electrónicos, las situaciones complicadas de tipo telefónico, la traducción y los proble- 
mas de deducción lógica. 
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Aquellos que despreciaron su trabajo por el simple hecho de que éste trataba de la 
construcción de máquinas capaces de jugar, se equivocaron de medio a medio. Cualquier 
avance en un campo determinado de la inteligencia artificial es potencialmente una fuen- 
te de información aplicable en cualquier otro campo de ésta. En el capítulo que dedicá- 
bamos al APRENDIZAJE Y RAZONAMIENTO vimos el programa TICTAC. No es 
muy significativo, en sí mismo, el contar con un programa que aprende por sí solo a me- 
jorar su juego del TRES EN RAYA. Pero la propia idea de aprendizaje sí que es muy 
importante. 


Las complejidades del mundo real 


Hay muchas situaciones en el mundo que son el resultado de un asombroso encade- 
namiento de factores. Son demasiados los factores que han llevado a la situación presen- 
te para que el hombre pueda comprenderla fácilmente. Si además la situación es cam- 
biante (como lo son todas las situaciones del mundo real), la capacidad del hombre para 
mantenerse al ritmo de ésta, a fin de tomar las decisiones más apropiadas sobre lo que 
hacer én cada momento, es casi ridícula de puro limitada. 

Aquí es donde los ordenadores programados para el juego pueden venir en su ayuda. 
La experiencia que se adquiere al escribir una función de evaluación para un programa 
de AJEDREZ (una función de evaluación mide la fuerza o la debilidad global de uno de 
los contrincantes en términos de un número determinado de factores, entre los que se in- 
cluyen el número de fichas sobre el tablero, su naturaleza y posición, las otras casillas 
que pueden atacar, etc.), podría aplicarse perfectamente para producir una función de 
evaluación que indicara cuáles son las mejores medidas que se pueden tomar para termi- 
nar con problemas tales como la contaminación o el vertido de residuos nucleares. 

Pensemos en la situación que se produjo en Three Mile Island debido al mal funcio- 
namiento de un reactor nuclear. El número de variables que habían de considerarse 
sobrepasó la capacidad de los operadores humanos, como más tarde señalaría el informe 
realizado por el Comité Malone: 


... el operador se vio bombardeado hasta tal punto por las pantallas, los pi- 
lotos indicadores de peligro, las impresoras y demás mecanismos, que le fue 
imposible detectar cualquier condición errónea y mucho menos evaluar 
cómo se debería actuar para corregir esa condición... 


Un experto en ordenadores que pudiera desglosar toda la entrada (input) para locali- 
zar las partes verdaderamente importantes e indicar la acción a seguir, hubiera tenido 
una importancia inestimable en esa situación. 

Parece probable, pues, que la experiencia o competencia adquirida trabajando con 
programas tales como los de AJEDREZ, puede ser decisiva para el desarrollo de otras 
áreas de la inteligencia artificial. 

Los avances realizados de este modo no siempre resultan como se habían pronostica- 
do. Por ejemplo, se han escrito programas de ajedrez de dos tipos: unos intentan imitar 
la manera en que los humanos juegan al ajedrez; y otros sencillamente tratan de jugar lo 
mejor posible. Se descubrió que los programas que intentan actuar siguiendo los mode- 
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los de los jugadores humanos, considerados en conjunto, no juegan tan bien como las 
máquinas que actúan en función de sus propios intereses. 

De aquí podemos sacar dos lecciones. Una es que intentar modelar en una máquina 
los esquemas del pensamiento humano quizá no sea el mejor camino a seguir para obte- 
ner los niveles más altos de ejecución de inteligencia artificial. La segunda es que del 
hecho de intentar producir un programa que actúe como un ser humano, podemos sacar 
una idea genuina del modo en que se comportan las mentes humanas. 


Otros juegos, otras lecciones 


El AJEDREZ no fue, por supuesto, el único juego que se tomó en consideración. Las 
DAMAS y el TRES EN RAYA, por ejemplo, fueron otros de los primeros candidatos en 
atraer la atención de los investigadores en aquellos primeros días de la investigación de la 
inteligencia artificial. 

En el capítulo dedicado al APRENDIZAJE Y RAZONAMIENTO comentamos el 
trabajo de Arthur Samuel, quien desarrolló un programa de DAMAS que aprendía a 
medida que jugaba. Cuando empezó, Samuel no era consciente de los problemas que 
entrañaba la escritura de un programa de DAMAS. Sabemos que empezó a desarrollarlo 
en 1946, cuando dejó de trabajar en los laboratorios Bell y se convirtió en profesor de la 
Universidad de Illinois. 

Decidió que la universidad necesitaba un ordenador, pero los 110.000 dólares que le 
ofrecía la administración de la universidad no eran suficientes para comprar uno. 
Samuel pensó entonces que la única manera de conseguir una máquina era utilizar ese di- 
nero para construir una ellos mismos. Pensó que, si era capaz de hacer algo espectacular 
con la primera máquina que estaban planeando construir, una máquina pequeñita, esta- 
ría en situación de pedir una financiación gubernamental. Samuel nos dice que creyó que 
las DAMAS, al ser un juego sencillito, sería fácil de programar. Una vez que lo tuvieran 
escrito, lo podrían utilizar para vencer al campeón mundial del momento en un campeo- 
nato que iba a tener lugar por entonces en Kankakee, una ciudad próxima a la universi- 
dad y de la publicidad que esto les diera, podrían conseguir financiación por otras vías. 

Enseguida se hizo evidente la magnitud de la tarea. Hacia el momento en que debía 
celebrarse el campeonato, no se había terminado siquiera el ordenador y mucho menos 
el programa. 

Samuel pensó en las DAMAS porque sabía que otros grupos estaban trabajando con 
el ajedrez. Consideró que las DAMAS, comparado con el AJEDREZ, era un juego bas- 
tante trivial. Pero, como pudimos ver en el capítulo APRENDIZAJE Y RAZONA- 
MIENTO, incluso la programación de un juego como el TRES EN RAYA entraña no 
pocas dificultades. 

Si el TRES EN RAYA deja de ser trivial cuando se trata de programarlo, pensemos 
en lo que puede ser la programación de un juego como el GO. Mucho esfuerzo se ha 
aplicado a lo largo de la historia de la inteligencia artificial en la creación de progra- 
mas de AJEDREZ, comparado con el relativamente escaso puesto en la programación 
del GO. 

Hay tres razones que explican este hecho. Una es puramente cultural. La mayoría de 
nosotros, occidentales (el GO es un juego japonés), no jugamos normalmente al GO, 
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mientras que casi todos estamos, por lo menos, familiarizados con el AJEDREZ. La se- 
gunda razón es histórica. Los primeros investigadores en el campo de los juegos, como 
Turing y Shannon, resaltaron el ajedrez como un área que merecía la pena explorar. Y la 
tercera razón, señalada por J. A. Campbell (en su libro “Go”, his contribution to Com- 
puter Game-Playing, Theory and Practice, editado por M. A. Bramer, Chichester, West 
Sussex: Ellis Horwood Ltd., 1983, p. 136), es que se ha demostrado que es extremada- 
mente difícil escribir un programa que juegue siquiera al mismo nivel que un novato que 
acaba de aprender a jugar. 

Pese a ello, es cierto que si uno quiere desafiar la dificultad que encierra el GO, quizá 
pueda hacerlo abordando sólo algunos aspectos del juego. En vez del tablero tradicional 
de 19 x 19, se podría escribir un programa para un tablero de siete por siete, por ejem- 
plo, o limitar el número de jugadas posibles. Al igual que el OTHELLO se creó añadien- 
do una limitación a la jugada de apertura del REVERSI, se podría crear un tipo de 
““*mini-GO”” con un tablero pequeño y algunas restricciones en el juego. 

Mientras que algunos juegos como el OTHELLO —en los que se pueden tabular bas- 
tante fácilmente los valores relativos de las diferentes casillas del tablero— responden 
bien a unas técnicas de investigación llevadas a cabo un poco por la ““fuerza-bruta””, se 
ha dicho que el GO sólo responderá a un tratamiento informático que utilice unas técni- 
cas mucho más sutiles y depuradas. En realidad, es muy posible que el GO pase a ocupar 
el lugar reservado hasta ahora al AJEDREZ, considerándolo como la última prueba por 
la que ha de pasar la inteligencia artificial, por lo menos en lo que a los juegos se refiere 
(véase David Brown, Seeing is believing, op cit., p. 177). 
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Sección tercera: EL HABLA 
6 


La comprensión 
del lenguaje natural 


No cabe duda de que la capacidad de los ordenadores para comprender el lenguaje 
natural (es decir, el lenguaje comúnmente utilizado por los humanos para comunicarse) 
es una capacidad a partir de la que puede juzgarse, y se juzgará, la inteligencia o lo que 
quiera que sea que tienen los ordenadores. 

La incapacidad del ordenador para conversar en nuestra lengua de cada día alza una 
barrera entre la máquina y nosotros mismos. Y tal barrera nos impide, por muchas ga- 
nas que tengamos de hacerlo, otorgarle al ordenador un grado mínimo de inteligencia. 

Hay un par de programas que marcaron un hito en este campo. En esta sección del 
libro examinaremos unos programas que nos permitirán experimentar, aunque sólo sea 
un poco, el mismo entusiasmo que produjeron aquellos programas originales. Estos eran 
SHRDLU (la versión que aparece aquí se llama BLOQUELANDIA) y ELIZA (cuya eje- 
cución en este libro, una de las más completas que se hayan publicado en lenguaje 
BASIC, se llama DOCTOR). 

En el programa original de SHRDLU, un “*robot”” manipulaba bloques y otras for- 
mas coloreadas en respuesta a unas Órdenes dadas en una lengua natural. Era capaz de 
llevar a cabo una soberbia conversación sobre lo que estaba haciendo en ese momento, 
lo que hizo en el pasado y por qué. 

ELIZA, una imitación psiquiátrica que sigue las tendencias en este campo de Carl 
Rogers, causó tal efecto y asombro en un principio que su creador contaría posterior- 
mente que había recibido angustiosas llamadas telefónicas de personas desesperadas que 
le pedían un poco más de tiempo de acceso al programa para ver si conseguían aclarar 
sus ideas. 

Además de BLOQUELANDIA y DOCTOR, estudiaremos los problemas y potencial 
de las máquinas capaces de traducir. Se incluye en esta sección un programa bastante 
simple llamado TRADUCTOR y capaz de generar frases en “spanglish”, que ilustra el 
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tipo de soluciones que pueden dar los ordenadores cuando intentan manejar no una, 
sino dos, lenguas naturales. 

HANSHAN, el último programa que veremos en esta sección, crea poemas al azar. 
El nivel de este programa, comparado con el del resto de los programas que componen 
este libro, es bastante bajo y además puede decirse que apenas ofrece una evidencia del 
poder cerebral del ordenador que lo ejecuta. Sin embargo, si el lector hubiera leído estas 
mismas líneas no hace más de treinta años, se hubiera quedado totalmente sorprendido 
de que un autor hablara como quien no quiere la cosa, sin darle mayor importancia, de 
una máquina capaz de escribir poesía y, lo que es más, de que tras esto, despachara el 
invento diciendo que carece de importancia. Hace treinta años hubiera sido un aconteci- 
miento capaz de conmover al mundo. La proximidad a la maravilla ha embotado nues- 
tra capacidad de percibirla y apreciarla. 

No obstante, algunos de los resultados producidos por los programas incluidos en 
esta sección deberían maravillarnos aunque sólo fuera un poquito. Antes de empezar a 
comentar y ejecutar los programas, es necesario que estudiemos algunos de los proble- 
mas que impiden que la comunicación entre el hombre y la máquina en una lengua natu- 
ral sea perfecta. 


Análisis del lenguaje 


Análisis es la palabra con que se define a la ruptura de las frases u oraciones en ele- 
mentos que el ordenador puede manejar. El campo de la lingúística informática tradicio- 
nalmente se ha dedicado a la investigación de los modos de análisis de la oración, con el 
fin de revelar la función de las diferentes partes de ésta en relación con su sintaxis. Se 
hace esto en la esperanza de que la máquina, al analizarla, pueda aproximarse a la com- 
prensión de la oración que se procesa. ] 

Sin embargo, cada vez se da un interés mayor por buscar un significado en términos 
de la función de la oración dentro de un marco de referencia mucho más amplio (como 
lo hacemos, en términos de una experiencia y un conocimiento del medio anteriores, 
cuando tratamos de entender una frase). Por supuesto, aunque la investigación basada 
en la estructura sintáctica continúa, cada vez se hace sentir más el empuje hacia enfo- 
ques en los que se tiene en cuenta una “visión global del medio”. 

La razón de esto es bastante obvia. Queremos poder hablar con los ordenadores en 
nuestros propios términos, más que en aquellos que nos dictan los límites de un lenguaje 
metálico. Cuando hablamos sobre un campo del conocimiento que nos interesa con un 
amigo que comparte nuestro interés, partimos de la base de que tenemos una gran canti- 
dad de conocimiento y un bagaje intelectual comunes. Así es como nos gustaría hablar a 
los ordenadores, pudiendo dar por supuesta la existencia de un conocimiento básico que 
sirva de marco para la comunicación. 

Imaginemos que somos los directores de una compañía minera. Contamos con un or- 
denador programado para ayudarnos en la tarea de buscar los minerales preciosos (al 
menos existe un programa de este tipo, PROSPECCION), y nos gustaría poder hablar 
con él utilizando las mismas palabras y frases que usamos cuando hablamos del tema con 
nuestros colegas. 

El esfuerzo se reduce a dar al ordenador una visión del mundo que le permita mane- 
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jar una entrada en lenguaje natural, usando para ello los conocimientos que tiene, a 
modo de plantilla con la que poder comprobar los posibles significados. 

En este capítulo descubrirá el lector que las únicas demostraciones convincentes de la 
““comunicación mediante un lenguaje natural”? que podemos dar son para “visiones del 
mundo”” extremadamente restringidas. En BLOQUELANDIA, por ejemplo, el mundo 
consiste en un espacio de dos dimensiones dentro del cual el ordenador manipula cuatro 
bloques de color. Sin embargo, el rendimiento del ordenador dentro de ese limitado uni- 
“verso es sorprendente, aun cuando no llega a las vertiginosas alturas de SHRDLU, el 
programa en el que éste se inspira. 

SHRDLU, por ejemplo, podía contestar a frases tales como BUSCA UN BLOQUE 
MAS ALTO QUE EL QUE TIENES AHORA Y METELO EN LA CAJA. Veremos 
cómo BLOQUELANDIA, aun habitando un universo más restringido que aquél, se 
muestra incapaz de tal hazaña. Sin embargo, como también veremos a su debido tiempo, 
BLOQUELANDIA no lo hace mal del todo. 

Como ya hemos dicho, el programa tiene que manipular cuatro bloques coloreados. 
Nos dice dónde están, ya sea encontrando un bloque determinado o describiendo toda la 
escena, y los mueve de un lado a otro. En la ejecución que precede al listado del progra- 
ma, el bloque verde está encima del bloque naranja. Le pedí al ordenador que pusiera el 
bloque rojo encima del bloque naranja. Esto significa que el programa, en primer lugar, 
ha de bajar el bloque verde y después localizar el bloque rojo para ponerlo encima del 
naranja. Esta es la salida del programa (con lo que nos dice el ordenador): 


Va 

«RNA 
? PON EL BLOQUE ROJO ENCIMA DEL NARANJA AAN 
COMPRENDO E 


AHORA MOVERE EL BLOQUE VERDE 


ESTOY MOVIENDOLO A LA COLUMNA 5 


AHORA ESTOY FONIENDO EL BLOQUE ROJO E 


ENCIMA DEL BLOQUE NARANJA 


Como descubrirá el lector si llega a ejecutar el programa, el hecho de comunicarse en 
castellano con el ordenador (un castellano limitado, admitámoslo, pero castellano a 
pesar de todo) produce un efecto mágico al igual que el hecho de que el ordenador siga 
nuestras instrucciones y nos responda también en castellano. 

Cuando se empezó a investigar la inteligencia artificial, se dedicó mucho tiempo a sa- 
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ber si el programa entendía o no en realidad lo que estaba sucediendo. Los investigado- 
res tenían conciencia de que incluso programas como SHRDLU o el ELIZA de Joseph 
Weinzenbaum (que estudiaremos en profundidad un poco más adelante), aunque daban 
la impresión, de lo más convincente, por otro lado, de que se comportaban inteligente- 
mente, no les habían acercado en lo más mínimo a la inteligencia “real” (independiente- 
mente de lo que cada uno entienda por ello). 

Este problema hoy ha dejado de importar. Actualmente no perdemos el tiempo pre- 
guntándonos si el robot soldador utilizado en las cadenas de producción de automóviles, 
““ve de verdad” lo que está haciendo o ““se siente satisfecho” ante el trabajo bien hecho. 
Lo importante es que la cosa funciona. En muchas ocasiones, como tendremos ocasión 
de comprobar en esta sección dedicada al lenguaje, basta y sobra con que el ordenador 
pueda manejarlo de un modo efectivo, como si *““realmente”” entendiera lo que oye y 
dice. 

Los programas “sistemas expertos”” (de los que hablaremos en detalle en el capítulo 
que lleva este nombre) pueden hacer nuevos descubrimientos y ayudar a los seres huma- 
nos en la solución de problemas difíciles. El lado pragmático de la inteligencia artificial 
tiende actualmente a considerar que “es inteligencia lo que actúa como tal”. Si el orde- 
nador se comporta inteligentemente —incluso dentro de un dominio extremadamente 
limitado— demos por hecho que entiende lo que está sucediendo y continuemos investi- 
gando las cuestiones realmente importantes, como la manera de incrementar la aparente 
inteligencia de la bestia. 


Problemas 


Son muchos y fundamentales los problemas con los que han de luchar los investiga- 
dores de la inteligencia artificial en su intento de desentrañar los misterios que encierra el 
procesado del lenguaje natural. La enorme cantidad de palabras de que consta cualquier 
lengua humana y la asombrosa cantidad de maneras en que éstas pueden combinarse 
constituyen el escollo fundamental y más obvio. Muchas de las frases que forman las 
oraciones son ambiguas. Generalmente, basándonos en un conocimiento previo, pode- 
mos salvar la ambigiedad y llegar a su significado. La ambigiúedad suele ser inherente al 
discurso hablado —quizá más de lo que lo es a la comunicación escrita— y además éste, 
el discurso hablado, a menudo es incompleto y carece de estructuración. 

Cualquier tarea adicional que se le dé al ordenador aumenta su tiempo de procesado. 
Un sistema que implique una lengua natural no debe exigir tanto tiempo que el proceso 
resulte inútil en términos humanos. Si al ordenador le lleva una semana ““entender”” un 
párrafo, se nos quitarán las ganas de dedicar mucho tiempo a la investigación de su ca- 
pacidad para comunicarse con nosotros. 


Sintaxis y Semántica 
Constituyen dos maneras de abordar el campo del análisis del lenguaje. No se exclu- 
yen la una a la otra. Se utilizan para solucionar los problemas subyacentes al lenguaje 


aun en el uso más común y cotidiano de éste. Incluso tratándose de una frase tan sencilla 


98 


como la que vamos a ver ahora, tardamos unos instantes en saber quién es la persona 
que está cansada: 


EL HOMBRE QUE ESTA CON PEDRO DIJO QUE ESTABA CANSADO 


Leída fuera de contexto, como lo acaba de hacer el lector ahora, no tenemos ninguna 
clave que nos indique quién es el que está cansado, aunque yo me inclino más bien a 
pensar que el “*cansado”” es el hombre y no Pedro. 

Cualquier sistema de análisis de una lengua natural ha de poder tratar e intentar re- 
solver este tipo de problemas. Margaret Boden (en su libro Artificial Intelligence and : 
Natural Man, Hassocks, Sussex: Harvester Press, 1977, p. 112), dando muestras de un 
humor delicioso, denomina “Problema del Arzobispo”” a la dificultad de asignar auto- 
máticamente un significado. El origen de esta denominación lo encontramos en Alicia en 
el país de las Maravillas: 


“Incluso Stigand, el patriótico arzobispo de Canterbury, pensó que esto 
era aconsejable.”” 

““¿Pensó qué?” 

““Pensó esto””, contestó el ratón, un tanto malhumorado. “Supongo que * 
sabes lo que significa “esto”.”” 

“Sé de sobra lo que significa “esto” cuando encuentro una cosa”, dijo el 
pato. “Suele ser una rana o un gusano. Lo que te pregunto es qué es lo que 


pensó el arzobispo.”” 


Examinemos ahora una frase y veamos cómo la dividiría un ““analizador””, antes 
de procesar cada palabra con el fin de aproximarse a la comprensión del escrito anali- 
zado. (Luego examinaremos la importante cuestión de cómo ha de definirse la *““com- 
prensión””.) 

Esta es la frase: 


EL DELGADO ANCIANO ESTABA BAJO EL ROBLE FRONDOSO 


Podemos examinar la frase sintácticamente (poniendo entre paréntesis cada elemento 
sintáctico de la estructura), como sigue: 


[[EL [[DELGADO] [ANCIANO]]] 
ESTABA [[BAJO [EL [ROBLE] [FRONDOSQ]]]1]] 


Observando con atención, siguiendo el sistema de paréntesis, uno puede hacerse una 
idea bastante razonable de cómo están ligados los diferentes elementos. Por ejemplo, 
DELGADO y ANCIANO llevan paréntesis individuales, [DELGADO] [ANCIANO], 
pero también están unidos mediante un paréntesis, formando un grupo más amplio, 
[[DELGADO] [ANCIANO]]. 

Hay un tercer paréntesis que encierra todo el lado izquierdo de la frase, [EL ... AN- 
CIANO]]] y el verbo ESTABA sólo está ligado por los paréntesis que encierran la frase 
entera, ya que él mismo liga las dos partes de la frase. Consideremos ahora el lado de- 
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recho; vemos que BAJO está incluido en el mismo paréntesis que FRONDOSO, ya que 
un par de paréntesis unen el conjunto de este lado. EL sólo tiene paréntesis de un lado, 
lo que significa que su única función es modificar al sustantivo que le sigue (es evidente 
que “el roble frondoso” es diferente de “un roble frondoso”; el primero se refiere a un 
roble determinado). 

Podemos expresar la estructura sintáctica de nuestra frase mediante un árbol: 


ESTABA 


EL 
DELGADO 


ANCIANO ROBLE 


FRONDOSO 


Si consiguiéramos que el ordenador desmenuzara las frases como lo hemos hecho 
nosotros con ésta, que fuera capaz de reconocer las partes del discurso en cada rama del 
árbol y/o poner entre paréntesis cada elemento sintáctico, estaríamos en el camino de 
lograr cierto grado de comprensión. 

Con esto volvemos a la cuestión que se planteaba hace un momento ¿Qué entende- 
mos por ““comprensión”” en el contexto de la máquina? J. Klir y M. Valach (en su libro 
Cybernetic Modelling, Londres, Iliffe Books, 1965) sugieren que la comprensión de un 
mensaje hablado consta generalmente de tres partes: 


1. Un modo de ““oír el mensaje”. 
. Un medio de responder a éste. 
3. Un método para evaluar si la respuesta (2) estaba o no formulada de manera que 
muestre que se ha comprendido el mensaje. 


Podrían considerarse varias maneras de evaluar la comprensión de un texto escrito, 
dice Geoff Simons (en su obra Are Computers Alive?, Brighton, Sussex, The Harvester 
Press, 1983, p. 129). Entre éstas se incluyen el suponer que ha habido comprensión por 
parte del ordenador cuando éste puede responder correctamente a las preguntas que le 
hagamos sobre el texto o el observar si la máquina es capaz de hacer conexiones inteli- 
gentes entre su propio conocimiento anterior (su base de datos) y la información que ha 
sacado de su ““lectura”” del texto. 
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7 
BLOQUELANDIA 


Algunas veces el vernos ante un ordenador que “charla”? con nosotros en castellano 
nos resulta un poco inquietante. En BLOQUELANDIA, una versión simplificada del fa- 
moso programa llamado SHRDLU (que comentaré un poco más adelante), el ordenador 
manipula una serie de bloques de juguete de diferentes colores siguiendo las instruccio- 
nes que nosotros le damos en castellano y diciéndonos —de vez en cuando— cómo está 
colocado cada bloque en relación con los demás. 

Los bloques, por supuesto, no existen como tales, ya que no son sino invenciones 
electrónicas del cerebro del ordenador. No obstante, vemos una representación de ellos 
en la pantalla y esta representación cambia según el ordenador va moviendo los bloques 
de un lado a otro. 

Como el lector ya se habrá percatado, suele ser mucho más fácil obtener una demos- 
tración convincente de la inteligencia de la máquina cuando ésta opera en un dominio 
limitado. El dominio de los bloques o cubos de juguete se utiliza mucho en los experi- 
mentos de inteligencia artificial precisamente por eso, porque'es un dominio claramente 
limitado, al tiempo que permite un grado considerable de interacción y manipulación, 
como enseguida tendrá el lector la ocasión de observar por sí mismo. 

En el universo que el ordenador manipulará en este programa hay cuatro bloques. 
Estos son rojo (que aparece con la letra “R”), verde (*V”), naranja (“N”) y azul (*A?). 

Al inicio del programa esto es lo que vemos en la pantalla: 


Lo que vemos es la parte delantera de los bloques. BLOQUELANDIA es esencial- 
mente bidimensional. Aunque podemos mover los bloques y ponerlos unos encima de 
otros, no podemos situarlos delante o detrás de otro bloque. Los puntos son invisibles 
para el ordenador. Sólo existen para el usuario, para su propia comodidad y muestran 
los lugares que pueden ocupar los bloques. 

Pese a que el número de frases que podemos utilizar para comunicarnos con el orde- 
nador es bastante restringido, estoy seguro de que todo aquel que lo ejecute se sentirá 
encantado al ver lo convincente que llega a resultar la conversación. Asimismo, constitu- 
ye una demostración fácil de explicar (pero no por ello menos impresionante) del fun- 
cionamiento de la inteligencia artificial; lo más apropiado para esos amigos escépticos 
que todos tenemos. 

Después de aparecer los bloques en la pantalla, vemos el signo recordatorio **?”” lo 
que nos indica que BLOQUELANDIA está esperando que le digamos algo. Podemos pe- 
dirle que nos describa su mundo: 


a 


? DIME LO QUE PUEDES VER 


== EMPEZANDO DESDE LA DERECHA 

+. «UN ESPACIO LUEGO 

MIS SENSORES REGISTRAN EL BLOQUE VERDE 
ESTA EL BLOQUE AZUL 

MIS SENSORES REGISTRAN EL BLOQUE NARANJA 
MIS SENSORES REGISTRAN EL BLOQUE ROJO 
FINALMENTE ...UN ESPACIO 


Una vez que nos ha dado esta visión de conjunto (cuando dice ““espacio”” se refiere a 
un punto), podemos pedirle que localice un bloque determinado dentro de este mundo: 


[) «RNAV. 
7? DONDE ESTA EL BLOQUE NARANJA 
> DEJAME VER AHORA « 
ESTA EN LA CASILLA 3 DE LA IZQUIERDA 
EL BLOQUE ROJO 
ESTA INMEDIATAMENTE A SU IZQUIERDA 


PUEDO VER EL ELOQUE AZUL. 
QUE LE ESTA TOCANDO FOR LA DERECHA 


NO HAY NADA FOR ENCIMA DE EL 


Desde luego que este modo de informarnos de lo que hay no es nada del otro mundo, 
aun cuando, como observará el lector, el programa está respondiendo a preguntas 
hechas en una lengua natural y lo hace, además, en un castellano bastante aceptable. En- 
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tramos ahora en el corazón del asunto diciéndole al ordenador que manipule los elemen- 
tos de su limitado dominio: 


E 3 | 
os E 
.RNAV. 
? PON EL BLOQUE VERDE ENCIMA DEL NARANJA W ; 
Ur) 
DE ACUERDO 
AHORA ESTOY PONIENDO EL BLOQUE VERDE 
ENCIMA DEL BLOQUE NARANJA 
O 
.....s 0 >) 
ia 
«RNA. + 
pas 
? DONDE ESTA EL NARANJA á 
¡Ñ | 


> DEJAME VER AHORA < 


ESTA EN LA CASILLA 3 DE LA IZQUIERDA 


EL BLOQUE ROJO PA] 
ESTA INMEDIATAMENTE A SU IZQUIERDA 
PUEDO VER EL BLOQUE AZUL Ud: pza 


QUE LE ESTA TOCANDO FOR LA DERECHA 


ENCIMA ESTA EL BLOQUE VERDE (y 
| | 


NO HAY NADA POR ENCIMA DE EL 
UL e 


Una cosa es poner un bloque (el ““objeto””) encima de otro (el ““blanco””) cuando este 
último no tiene nada encima, y otra muy distinta y que requiere además una cantidad 
significativa de código, es cuando primero se ha de dejar libre el blanco. La situación se 
complica todavía más cuando encima del bloque-objeto hay otro bloque (o más de uno) 
que ha de ser quitado antes de poder mover el primero. En esta ejecución, el programa 
tiene que dejar libre el bloque-blanco. El bloque-objeto no tiene ningún otro encima y 
por tanto no ofrece problema: 


? PON EL ROJO ENCIMA DEL NARANJA 


COMPRENDO 
AHDRA MOVERE EL BLOQUE VERDE PARRAS 


ESTOY MOVIENDOLO A LA COLUMNA 4 


AHORA ESTOY PONIENDO EL BLOQUE ROJO 
ENCIMA DEL BLOQUE NARANJA 
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“Un poco más tarde, el orden de los bloques es el siguiente: 


«Acro 
«Vunna 
¿RNos. 


? DIME LO QUE VES 


EMPEZANDO DESDE LA DERECHA 
«UN ESPACIO LUEGO 

«UN ESPACIO LUEGO 

«UN ESPACIO LUEGO 
MIS SENSORES REGISTRAN EL BLOQUE NARANJA 
ESTA EL BLOQUE AZUL 

e. «Y MAS ABAJO DE El... 
VEO EL BLOQUE VERDE 

2... Y MAS ABAJO DE El... 
VEO EL. BLOQUE ROJO 
FINALMENTE ...UN ESFACIO 


Le pedimos ahora lo más difícil de todo lo que le hemos pedido hasta el momento: 


Aros 
Vans 
¿RNoao. 


2 FON El VERDE ENCIMA DEL NARANJA 


DE. ACUERDO 
DEBO MOVER EL BLOQUE AZUL 
ESTOY MOVIENDOLO A LA COLUMNA 5 
AHORA ESTOY FONIENDO EL. ELOQUE VERDE 
ENCIMA DEL BLOQUE NARANJA 


+ FULSE “RETURN” FARA CONTINUAR 


Este programa se comporta de un modo bastante misterioso. Parece que entiende 
nuestras Órdenes o, por lo menos, actúa de acuerdo con éstas. Se diría que comprende lo 
que está haciendo, ya que nos informa del resultado de sus actos. 


El funcionamiento 


¿Cómo lo consigue? ¿Cuál es el secreto de esta impresionante actuación? Todo el 
proyecto se reduce al análisis gramatical de las frases con el fin de llegar a comprender 
las partes importantes de las órdenes que se le dan, a la manipulación de los elementos 
en una matriz bidimensional en respuesta a las instrucciones recogidas en el análisis de la 
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entrada y, finalmente, a la impresión de la matriz de modo que exprese los contenidos 
con claridad para que puedan percibirse fácilmente. 

Este tipo de ““explicación””, desde luego, no llega a quitarnos la impresión de inteli- 
gencia que nos da el programa; y eso que BLOQUELANDIA es una criatura de lo más 
primitiva si se la compara con su progenitor, SHRDLU. 

Este programa, terminado en 1971 por Terry Winograd, no sólo manipula bloques, 
sino que los muestra en la pantalla, en color, creando su mundo al tiempo que actúa re- 
cíprocamente con éste. Oigamos cómo Terry habla con SHRDLU (la salida del ordena- 
dor son las mayúsculas precedidas por el signo >): 


PS 7 
Recoge el bloque rojo grande |) 
> DE ACUERDO 
Busca un bloque mas grande que el que 
tienes, e introducelo en la caja. 
+ DE ACUERDO 
Que hay en la caja? 
+ LA PIRAMIDE AZUL Y LA CAJA AZUL 
Quien sostiene a la piramide”? 
> LA CAJA 
Hay algun bloque grande detras de la piramide”? 
> 51, HAY TRES: UNO ROJO GRANDE, UN CUERO 7 
hora 


VERDE GRANDE Y EL AZUL 


Como puede verse, se trata de un esfuerzo notable y como tal lo consideran todos los 
investigadores, para quienes el trabajo de Winograd es una de las cotas más altas a las 
que se ha podido llegar en el desarrollo de programas que impliquen el uso de una len- 
gua natural. A su lado, nuestro BLOQUELANDIA queda oscurecido. 

No obstante, BLOQUELANDIA es capaz de una manipulación bastante complicada, 
aun cuando su salida no sea tan compleja como la que produce SHRDLU. Demostraré 
esta afirmación volviendo a nuestro programa y pidiéndole que haga para nosotros unas 
cuantas acrobacias. 

En la versión castellana se ha modificado el programa, de modo que permita el uso 
conjunto de las palabras “BLOQUE” y **color””, o la omisión de la primera, en todas 
sus posibles combinaciones, tanto a la hora de preguntar como de ordenar. 

Esto agilizará la ejecución, aumentando al mismo tiempo las posibilidades del pro- 
grama original, con la consiguiente sensación de mayor inteligencia. 

Las distintas subrutinas que se encargan de ello son: 


a) Líneas 1750 a 1820 (caso: “-color...-color”). 
b) Líneas 1830 a 1890 (casos: “bloque-color...-color” y “-color...bloque-color”). 
Cc) Líneas 1530 a 1590 (caso: *bloque-color...bloque-color”). 


A modo de ejemplo, las posibilidades de decir al ordenador que ponga el bloque.azul 
encima del verde son las siguientes: 
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WE PON EL BLOQUE AZUL ENCIMA DEL BLOQUE VERDE 


Ñ j PON EL BLOQUE AZUL ENCIMA DEL VERDE 
PON EL AZUL ENCIMA DEL BLOQUE VERDE 


maras De: PON EL AZUL ENCIMA DEL VERDE 


e ekbrsa 
Po) RN. Vo 


Observemos que el bloque naranja está debajo del azul. Le pediremos ahora al pro- 
grama que invierta la posición de ambos: 


? PON EL NARANJA ENCIMA DEL AZUL 


COMPRENDO 
DEBO MOVER EL BLOQUE AZUL 
ESTOY MOVIENDOLO A LA COLUMNA 4 
AHORA ESTOY FONIENDO EL BLOQUE NARANJA 
ENCIMA DEL BLOQUE AZUL 


e. «No» 
«R.AV. 


Construiremos ahora una torre para ver cómo la manipula BLOQUELANDIA: 


7? FON EL BLOQUE VERDE ENCIMA DEL NARANJA 


COMPRENDO 
AHORA ESTOY PONIENDO EL ELOQUE VERDE 
ENCIMA DEL BLOQUE NARANJA 


[A 5 ....o.. 
| | ..».Vua 
..« «No. 


«RiAc. 


Le decimos después al ordenador que queremos que ponga el bloque inferior de la 
torre sobre el bloque que está solo. Observemos que el programa está escrito de modo 
que garantiza que si el bloque-blanco está libre (no tiene ningún otro encima), no se le 
pondrá nada encima mientras se está dejando libre el bloque-objeto: 
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? PON EL AZUL ENCIMA DEL ROJO 


DE ACUERDO 
DEBO MOVER EL BLOQUE VERDE 
ESTOY MOVIENDOLO A LA COLUMNA 6 
DEBO MOVER EL BLOQUE NARANJA 
ESTOY MOVIENDOLO A LA COLUMNA 6 
AHORA ESTOY PONIENDO EL BLOQUE AZUL 
ENCIMA DEL BLOQUE ROJO 


«Acc N 
Ro. .V 


Ahora tenemos dos torrecitas, una con el bloque azul encima del rojo y otra con el 
bloque naranja encima del verde. Le pediremos al ordenador que manipule los dos blo- 
ques que están debajo. Como se ve, las pruebas que le exigimos a BLOQUELANDIA 
son cada vez más difíciles: 


? PON EL VERDE ENCIMA DEL ROJO 


DE ACUERDO 
DEBO MOVER EL BLOQUE NARANJA 
ESTOY MOVIENDOLO A LA COLUMNA 5 
DEBO MOVER EL BLOQUE AZUL 
ESTOY MOVIENDOLO A LA COLUMNA 5 
AHORA ESTOY FPONIENDO EL BLOQUE VERDE 
ENCIMA DEL BLOQUE ROJO 


«Vi.A. 
«Re.N. 


Lleva a cabo nuestra orden sin ningún problema. Usemos ahora el bloque rojo como 
objeto (en este momento está cubierto por el verde) y el azul como bloque-blanco para 
construir una torre con los cuatro: 


? PON EL ROJO ENCIMA DEL AZUL 


COMFRENDO 
DEBO MOVER EL BLOQUE VERDE 
ESTOY MOVIENDOLO A LA COLUMNA 3 
AHORA ESTOY FPONIENDO EL BLOQUE ROJO 
ENCIMA DEL BLOQUE AZUL 


....Re 
2... A. 
.».V.N. 
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] ? PON EL VERDE ENCIMA DEL BLOQUE AZUL 


COMFRENDO 
AHORA MOVERE EL BLOQUE ROJO 


ESTOY MOVIENDOLO A LA COLUMNA 2 
AHORA ESTOY PONIENDO EL BLOQUE VERDE 


| ENCIMA DEL BLOQUE AZUL 


em : ....Ve 
= ....A. 
] +«R..N. 
a! 
ICAO ? FON EL BLOQUE ROJO ENCIMA DEL BLOQUE VERDE 
1 | COMFRENDO 
Í Pe] 


AHORA ESTOY PONIENDO EL BLOQUE ROJO 
ENCIMA DEL BLOQUE VERDE 


....Re 


...«.A. 


... «Na 


Llegamos a una prueba muy difícil; sinceramente, yo pensé que el programa no sería 
capaz de realizarla. Es cierto que yo había escrito una rutina de manipulación blanco/ 
objeto como objetivo general del programa, pero no estaba totalmente seguro de que 
éste fuera capaz de manipular una situación como la que está a punto de abordar ahora. 
Tiene que coger un bloque (el azul), quitando primero los bloques que están sobre él, y 
después ponerlo encima de uno de aquéllos (el verde): 


| 
1] 


| ? PON EL BLOQUE AZUL ENCIMA DEL VERDE 
!] 
y 


COMPRENDO 
DEBO MOVER EL BLOQUE ROJO 
ESTOY MOVIENDOLO A LA COLUMNA 2 
DEBO MOVER EL BLOQUE VERDE 
ESTOY MOVIENDOLO A LA COLUMNA 6 
AHORA ESTOY FONIENDO EL BLOQUE AZUL 
ENCIMA DEL ELOQUE VERDE 


2... «A 
.-R-.NV 


? DIME LO QUE VES 


al 


EMPEZANDO DESDE LA DERECHA 

MIS SENSORES REGISTRAN EL BLOQUE AZUL 
«.« «Y MAS ABAJO DE EL... 

VEO EL BLOQUE VERDE 


MIS SENSORES REGISTRAN EL BLOQUE NARANJA 
.. «UN ESFACIO LUEGO 
ESTA EL BLOQUE ROJO 
«. «UN ESFACIO LUEGO 


FINALMENTE ...UN ESPACIO 


Me sentí feliz cuando BLOQUELANDIA pasó esta prueba. No había pensado seguir 
sometiéndolo a pruebas tan difíciles, pero cuando lo intenté con una torre formada por 
los cuatro bloques, pidiéndole que sacara el bloque que estaba debajo del todo y lo pu- 
siera encima, el programa estalló. Me llevó más de una semana el calcular cuál podría 
ser la solución. Primero lo intenté con un método “*klutz””, dándole una rutina diferente 
para las torres de cuatro bloques. Después me di cuenta de que sencillamente añadiéndo- 
le siete caracteres a la línea 1950 (TAREA = 3:) le permitía manipular la situación. 

BLOQUELANDIA había trabajado mucho y bien, por lo que decidí que debería dar- 
le un respiro: 


7? REVUELVE LOS ELOQUES 
ESTA BIEN QUE LE DEN A UNO LA OPORTUNIDAD 
DE HACER LO QUE QUIERE 


Pasamos ahora a estudiar los elementos más importantes del programa. 


Módulos del programa 


Al igual que otros programas de este libro, BLOQUELANDIA empieza con una lla- 
mada a una subrutina del final del programa que inicializa las variables utilizadas: 
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2580 REM INICIALIZACION 
2590 CLS 

2600 RANDOMIZE 

2610 DIM A(S, 6) 


2620 FOR X = 1 TOS 
2670 FOR Y = 1 TO 6 
2640 A(X, Y) = 46 


2650 NEXT Y 
2660 NEXT X 
2670 A(1, 2) 
2680 
2690 A(1, 4) 
2700 A(1, 5) 
2710 RETURN 


ASC("R"): REM BLOQUE ROJO 
ASC("N"): REM BLOQUE NARANJA 
ASC("A"): REM BLOQUE AZUL 
ASC("V"): REM BLOQUE VERDE 


D 
“ 

ni 

mono mo 


Como vemos (en la línea 2610), se utiliza una matriz de cinco por seis para contener 
el “mundo”. Se rellena ésta, primero, con-46 líneas (620 a 2660), el código ASCII del 
punto que se utiliza para indicar un espacio vacio en el mundo del programa. La posi- 
ción inicial de los bloques la dan las líneas comprendidas entre la 2670 y la 2700. El pro- 
grama asigna la letra inicial del color (*R” para el rojo, etc.) al bloque de ese color. No 
hay nada verdaderamente complicado en esta primera subrutina. 

Aunque la subrutina de inicialización es llamada sólo una vez durante toda la ejecu- 
ción del programa, otra subrutina, NOMBRE DEL COLOR, será llamada cada vez que 
el ordenador quiera referirse a un bloque. 


2510 REM NOMBRE DEL COLOR 
2520 IF Q ASC("R") THEN FRINT "ROJO" 


2570 IF Q = ASC("N") THEN PRINT "NARANJA " 

; 2540 IF Q = ASC("A") THEN FRINT "AZUL " 
2550 IF Q = ASC("V") THEN FPRINT "VERDE " 
2560 RETURN 


Esta subrutina cambia la letra inicial por el nombre completo del color en cuestión. 
Ambas subrutinas se encuentran al final del listado. 

Volviendo al principio del programa, encontramos una corta sección de código que 
se encarga de imprimir una visión de conjunto de los bloques. Quizá esto podría haber 
sido una subrutina, pero como es necesaria cada vez que el programa pasa por el bucle 
principal, parece mejor tenerla aquí. 


LO O REM ** IMPRIMIR EL CUADRO *x* ( 
| 40 CLS: PRINT: PRINT 
| 50 FOR X = 5 TO 1 STEF - 1 

60 PRINT TAB(8)5 

70 FOR Y = 1 706 
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80 PRINT CHR$(A(X, Y))5 
90 NEXT Y 

100 PRINT 

110 NEXT X 

120 FRINT: PRINT 


La línea 50 muestra que la visión de conjunto se imprime de ““arriba a abajo”” apare- 
ciendo la hilera 5 antes que la 4 y así sucesivamente, hasta acabar en la hilera 1, en la 
parte inferior de la escena. Se hizo así para que al programa le resultara más fácil la ma- 
nipulación de los bloques. Sabe que tiene que comprobar un número más alto para ver si 
hay un bloque encima del que está considerando en ese momento. 

En realidad, no hubiera habido ninguna dificultad en hacerlo al revés (cuanto más 
bajo sea el número más arriba estará situado el bloque), pero me pareció que esto supo- 
nía una complicación innecesaria. 

La siguiente sección del código acepta la entrada del usuario y partiendo de ésta de- 
termina qué subrutina ha de ser llamada. 


130 INPUT A$ 

140 FRINT 

150 IF A$ = "" THEN PRINT "FIN DEL PROGRAMA": END 
: REM TERMINA LA EJECUCION EN VEZ DE TENER 
QUE FRESIONAR LA TECLA DE *RETURN” 


160 IF LEFT$(A$, 10) = "DONDE ESTA" THEN GOSUE 
240 

170 IF LEFT$(A$, 11) = "DIME LO QUE" THEN GOSUB 
1040 


"REVUELVE" THEN GOSUB 1260 
"FON EL" THEN GOSUE 1480 


180 IF LEFT$(A$, 8) 
190 IF LEFT$(A$, 6) 


200 PRINT: PRINT: PRINT " >>> PULSE *"RETURN” 
PARA CONTINUAR": INPUT Z$ 
210 GOTO 40 


Cuando uno se mete a construir un programa de inteligencia artificial enseguida cae en 
la cuenta de lo complejo que es el funcionamiento de la inteligencia. BLOQUELANDIA 
opera en un dominio muy restringido y reacciona sólo ante aquellas situaciones que se 
han tenido en cuenta específicamente (aunque, como vimos en la ejecución de muestra 
hace un momento, se las arregló para resolver una situación para la que yo pensaba que 
no lo había preparado). Pese a las limitaciones de dominio y de actuación, BLOQUE- 
LANDIA exige un montón de código, con secciones independientes que llevan a cabo 
cada investigación y siguen cada orden. 

Observemos, por ejemplo, la rutina que determina la localización de un bloque en 
particular. En primer lugar, el programa verifica si el bloque por el que se le está pregun- 
tando forma parte de su propio universo. Lleva a cabo esta verificación extrayendo 
—con la ayuda de la línea 260— la inicial del bloque en cuestión, tras lo cual comprueba 
—línea 270 y 290— que es uno de los cuatro que él reconoce: 
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240 REM "DONDE ESTA EL BLOQUE..." 

250 P=0 

260 B$ = MID$(A$, 15, 1) 

270 1F E$ = "R" OR B$ = "N" OR B$ = "A" OR 
B$ = "Y" THEN 350 

280 E$ = MID$(A$, 22, 1) 

290 IF B$ = "R" OR B$ = "N" OR B$ 
BES = "Y" THEN 350 


" A " OR 


Si, por ejemplo, le preguntáramos algo sobre un bloque rosa, usaría la rutina siguien- 
te (entre las líneas 300 y 330) para escoger una respuesta al azar, antes de volver al pro- 
grama principal: 


ZOO IF RND(1) > .7 THEN 320 

310 PRINT "LO SIENTO, NO TENGO INFORMACION DE ESO 
"* GOTO 330 

320 PRINT "NO TENGO DATOS CON LOS QUE PODER RES 
FONDERTE" 

330 RETURN 


Si se salta esta rutina, empezará a buscar el bloque. No utilizamos bucles FOR/NEXT 
para esta búsqueda, ya que queremos que el programa sea capaz de dejar la búsqueda en 
cualquier momento. No estará bien construido un programa que salga arbitrariamente 
de los bucles FOR/NEXT (y muchos ordenadores se cuelgan bastante pronto si se le acu- 
mulan en la pila demasiadas direcciones NEXT). Esta parte del programa le da la prime- 
ra parte de la información requerida por éste en relación con la localización del bloque: 


350 M = ASC(B%) 

360 PRINT TAB(8)5 "> DEJAME VER AHORA <" 
370 X= 5 

380 Y = 1 


390 IF A(X, Y) = M THEN 430 

400 IF Y < 6 THEN Y = Y + 1: GOTO 390 
410 IF X > 1 THEN X = X — 1: GOTO 380 
420 GOTO 300 

430 IF X > 

440 IF Y > 


THEN 900: REM ESTA ENCIMA DE OTRO 
THEN 540: REM ND ESTA EN LA IZQUIER 


Las sentencias REM en el resto de esta sección explican lo que hace cada una: 
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460 REM ** EN LA IZQUIERDA *x* 

470 PRINT "ESTA EN LA IZQUIERDA" 

480 IF A(1, 2) = 46 THEN FRINT "NO HAY NADA INME 
DIATAMENTE A SU IZQUIERDA": GOTO 790 

490 Q = Al, 2) 

500 PRINT 

510 PRINT "A SU LADO, PUEDO VER EL BLOQUE " 

520 GOSUB 2510 

530 GOTO 790 

540 IF Y < 6 THEN 650 

550 REM 00d II 

560 REM ** EN LA DERECHA %%e 

570 PRINT 

580 PRINT "ESTA EN EL LADO DERECHO" 

590 IF A(1, 5) = 46 THEN FPRINT "NO HAY NADA INME 
DIATAMENTE A SU DERECHA": GOTO 790 

£00 PRINT "A SU IZQUIERDA PUEDO VER EL BLOQUE "5 

610 Q = A(1, 3) 

620 GOSUB 2510 

630 GOTO 790 

640 REM 3d dde dd dd dd Hd 

650 REM ** EN EL CENTRO *x* 

660 PRINT 

670 PRINT "ESTA EN LA CASILLA "3 Yi "DE LA IZ 

QUIERDA" 

680 IF A(X, Y -— 1) = 46 THEN PRINT "NO HAY NADA 
INMEDIATAMENTE A SU IZQUIERDA": GOTO 730 

6790 Q = A(X, Y -— 1) 

700 PRINT "EL BLOQUE "; 

710 GOSUB 2510 

720 PRINT "ESTA INMEDIATAMENTE A SU IZQUIERDA" 

730 1F A(X, Y + 1) = 46 THEN PRINT "NO HAY NADA 
INMEDIATAMENTE A SU DERECHA": GOTO 790 

790 0 = A(X, Y + 1) 

730 PRINT: PRINT "PUEDO VER EL BLOQUE "; 

760 GOSUBE 2510 

770 FRINT " QUE LE ESTA TOCANDO FOR LA DERECHA" 

780 REM mode 26 6 dd 66 6 HI HA AH 

790 REM ** HAY ALGO POR ENCIMA? +*x%* 

800 FPRINT 

810 F = X 

820 IF X = S THEN 900 

830 IF A(X + 1, Y) = 46 THEN PRINT:3 FRINT "NO HAY 
NADA FOR ENCIMA DE EL": GOTO 330 

840 PRINT: PRINT "ENCIMA ESTA EL BLOQUE "; 

850 OQ = A(X + 1, Y) 

860 GOSUR 2510 

870 X = X + 1 

880 GOTO 820 

890 REM 4d 00d 06 6 dd 26 6 6 II A 

900 REM ** ESTA ENCIMA DE OTRO? %+x* 

910 IF P <> O THEN X = FP 

920 PRINT 

930 IF X = 1 THEN 330 

940 PRINT "ESTA INMEDIATAMENTE "5; 
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950 PRINT "ENCIMA DEL BLOQUE "; 
960 A = A(X - 1, Y) . 
970 GOSUB 2510 

980 X =X - 1 

990 IF X < 2 THEN 330 

1000 PRINT "QUE ESTA "; 

1010 GOTO 950 

1020 RETURN 


Se llama a la siguiente subrutina si le preguntamos al programa DIME LO QUE 
VES. Esta es una rutina mucho más sencilla que la que localiza un bloque en par- 
ticular. 


1030 REM rr A 
1040 REM ** DIME LO QUE VES ** 
1050 FRINT "EMPEZANDO DESDE LA DERECHA" 


1060 Y = 6 

1070 X = 5 

1080 IF A(X, Y) <> 46 THEN 1140 

1090 IF Y = 1 AND X = 1 THEN FRINT "FINALMENTE "; 

1100 IF X = 1 AND A(X, Y) = 46 THEN FPRINT "...UN 
ESFACIO "32 IF Y > 1. THEN PRINT "LUEGO" 


1110 IF X > 1 THEN X 
1120 IF Y > 1 THEN Y 
1130 RETURN 

1140 L = INT(RND(1) * 2) 

1150 IF L = O THEN PRINT "ESTA EL BLOQUE "3: GOTO 


X -— 1: GOTO 1080 
Y - 1: GOTO 1070 


1180 
1160 IF L = 1 THEN PRINT "MIS SENSORES REGISTRAN 
EL BLOQUE "5: GOTO 1180 


1170 PRINT "VEO EL BLOQUE "; 

1180 Q = A(X, Y) 

1190 GOSUB 2510 

1200 IF X = 1 THEN 1120 

1210 X = X - 1 

1220 PRINT "...Y MAS ABAJO DE EL...” 
1230 GOTO 1170 

1240 RETURN 


La rutina REVUELVE LOS BLOQUES es también relativamente sencilla: 


1250 REM 0 0 II 

1260 REM ** REVUELVE LOS BLOQUES *x* 

1270 PRINT 

1280 IF RND(1) > .5 THEN FRINT TAB(7)5 "YA ERA 

HORA, TAMBIEN": GOTO 1300 

1290 PRINT "ESTA BIEN QUE LE DEN A UNO LA OPORTUNI 
DAD": FRINT TAB(4)5 "DE HACER LO QUE 
QUIERE" 
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1300 
1310 
1320 
1330 
1340 
1750 
1360 
1370 
17380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 


FOR X= 1705 
FOR Y = 1 7106 
A(X, Y) = 46 
NEXT Y 

NEXT X 


Yi = INT(RND(1) * 6) + 1 
= INT(RND(1) * 6) + 1 
IF Y2 = Yi THEN 1360 
Y = INT(RND(1) *.6) + 1 
IF Y3 = Y2 OR Y3 = Y1 THEN 12380 
Y4 = INT(RND(1) * 6) + 1 
IF Y4 = Y3 OR Y4 = Y2 OR Y4 = Yi THEN 1400 


A(1, Y1) = 82 
A(1, Y2) = 78 
A(1, Y3) = 65 
A(1, Y4) = 86 
RETURN 


Finalmente, llegamos a la rutina que produce los resultados más impresionantes, la 
rutina “PON EL objeto ENCIMA DEL blanco””. Como en todas las rutinas importan- 
tes que hemos examinado, las sentencias REM explican lo que hace cada sección: 


1480 
1490 
1500 


1510 
1520 


135730 
1540 
1530 
15360 
1570 
15380 
1590 
1600 


1610 
1620 
16730 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 


REM "FON EL BLOQUE. ..ENCIMA DEL BLOQUE..." 
L=0 

IF RND(1) > .5 THEN PRINT TAB(5)5 "COMPRENDO" 
: GOTO 1520 

PRINT TAB(8)5 "DE ACUERDO" 

IF MID$(A$, 8, 1) <> "B" THEN GOTO 1760: REM 
COMFRUEBA Y BIFURCA EN CASO DE HABERSE OMITI 
DO EL PRIMER * BLOQUE” 

REM ** CASO: ””BLOQUE-COLOR. .. BLOQUE-COLOR” * " 
ES = MID$(A$, 15, 1) 


IF E$ = "R" THEN L = 38 
IF B$ = "A" THEN L = 3 
IF B$ = "V" THEN L = 39 
IF E$ = "N" THEN L = 41 


C$ = MID$(A$, L, 1) 
IF NOT (C0$ = "R" OR C$ = "A" OR C$ = "Y" OR 
C$ = "N") THEN 1840: REM COMPRUEBA Y BIFURCA 
CASO DE HABERSE OMITIDO EL SEGUNDO BLOQUE 
BE = ASC(BS) 
C = ASC(C$) 
BANDERA = C 
REM x** ENCUENTRA EL BLOQUE B$ *x 
X= 5 
1 


IF A(X, Y) = B THEN .1900 
IF Y < 6 THEN Y = Y + 12 GOTO 1670 
IF X > 1 THEN X = X -— l: GOTO 1660 


PRINT "NO FUEDO ENCONTRAR EL BLOQUE "5 
Q = B 
GOSUE 2610 
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1730 
1740 
17530 
1760 
1770 
1780 
1790 
1800 
1810 


1820 
1830 


1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
19730 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 


2020 
2030 
2040 


FOR T = 1 TO 2000: NEXT T 

RETURN 

REM ** CASD:; ?*-—----- COLOR. . . =--=--- COLOR”*”  +x* 

B$ = MID$(A+$, 8, 1) 

IF E$ = "R" THEN L = 24 

IF B$ = "A" THEN L = 24 

IF B$ = "V" THEN L = 25 

IF B$ = "N" THEN L = 27 

IF NOT (L = 24 OR L = 25 OR L = 27) GOTO 1840 

2: REM COMPRUEBA Y BIFURCA EN EL CASO DE HABER 

FUESTO EL SEGUNDO “BLOQUE” 

GOTO 1590 

REM *%* CASOS: *“BLOQUE-COLOR.. . -=---=-=- COLOR” ” 
Yo Umi COLOR... .BLOQUE-COLOR*” — *%e 

IF B$ = "R" THEN L = 31 

IF B$ = "A" THEN L = 31 

IF B$ = "Y" THEN L = 32 

IF B$ = "N" THEN L = 34 

C$ = MID$(AS, L, 1) 

GOTO 1610 

R=X3S5=Y 


REM ** EL BLOQUE ESTA EN R, S ** 

REM *x* ESTA VACIA LA CASILLA DE DESTINO? ** 
IF A(R + 1, S) = 46 THEN 2070: REM *SI” 

IF A(R + 2, S) = 46 THEN TAREA = 1: GOTO 1960 
TAREA = 32 IF A(R + 3, S) = 46 THEN TAREA = 2 
FOR W = TAREA TO 1 STEF - 1 

PRINT "DEBO MOVER EL BLOQUE " 

OQ = A(R + W, S) 

GOSUBE 2510 

DE = INT(RND(1) * 6) + 1 

IF DE = S OR A(1, DE) = C OR A(2, DE) = C OR 
A(T, DE) = C THEN 2000 

PRINT "ESTOY MOVIENDOLO A LA COLUMNA "3 DE 
L=1 

IF A(L, DE) = 46 THEN A(L, DE) = A(R + W, S): 


A(R + W, S) = 46: GOTO 2060 


2050 
2060 
2070 


2080 
2090 
2100 
2110 
2120 
21730 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
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Lo=L«*d: GOTO 2040 

NEXT W 

REM LA CASILLA DE DESTINO EN R, S ESTA AHORA 
LIBRE 

REM xx ESTA LIBRE LA CASILLA DE PARTIDA? ** 

REM *** ENCUENTRA EL BLOQUE ws, 

X= 3 

Y =1 

IF A(X, Y) = C THEN 2210 


IF Y 2 6 THEN Y = Y + 13 GOTO 2120 

IF X > 1 THEN X = X - 1: GOTO 2110 
PRINT "NO FUEDO ENCONTRAR EL BLOQUE "5 
Q=<C 

GOSUE 2510 ' 

FOR J = 1 TO 2000: NEXT J 

RETURN 

REM ** SE HA ENCONTRADO C x% 
T=X:U=Y: REM LOCALIZACION DE C 
IF A(T + 1, U) = 46 THEN 2390 

IF A(T + 2, U) = 46 THEN TAREA = 1: GOTO 2250 


2240 IF A(T + 3, U) = 46 THEN TAREA = 2 
2250 DE =INT(RND(1) * 6) + 1 
2260 IF DE = U OR DE = S THEN 2250 
2270 FOR W = TAREA TO 1 STEP - 1 
2280 PRINT "AHORA MOVERE EL BLOQUE "; 
2290 Q = A(T + W, U) 
2300 GOSUB 2510 
2310 PRINT 
2320 PRINT "ESTOY MOVIENDOLO A LA COLUMNA "; DE 
2330 L = 1 
2340 IF A(L, DE) = 
A(T+ WU = 
Lo 2350 L = L +1: 60 
| 2360 NEXT W 
| 2370 REM ** LA CASILLA DE PARTIDA AHORA ESTA LIBRE 
HA 
2380 REM ** REALIZA EL MOVIMIENTO *«* 
2390 PRINT "AHORA ESTOY PONIENDO EL BLOQUE "; 
2400 Q = A(R, S)1 Z = A(R, 9) 
2410 GOSUB 2510 
2420 PRINT "ENCIMA DEL BLOQUE "; 
2430 IF A(T, U) = 46 THEN A(T, U) = BANDERA 
2440 Q = A(T, U) 
2450 GOSUB 2510 
2460 A(R, S) = 46 
2470 A(T + 1, U) = Z 
2480 FOR J = 1 TO 2000: NEXT J 
2490 RETURN 


46 THEN A(L, DE) = A(T + W, U): 
46: GOTO 2360 
TO 2340 


Naturalmente, el programa tiene que atender a todas las situaciones que se le pide 
que manipule. Después del listado completo de éste, volveremos a *“escuchar”” un poco 
más de la conversación de Winograd con SHRDLU, de donde se pueden sacar ideas en 
el caso de que se quiera ampliar BLOQUELANDIA. Manteniendo una estructura simi- 
lar a la presente, podemos añadir al programa un grado mayor de complejidad sin por 
ello perdernos en un laberinto de códigos. 

La única información suplementaria que se necesita es el formato de la entrada exigi- 
do por el programa. Son tres las preguntas o peticiones que el usuario puede hacer al 
programa (y el programa espera que se las haga en mayúsculas, aunque esto se puede mo- 
dificar dependiendo de los sistemas). Las preguntas son las siguientes: 


DONDE ESTA EL BLOQUE (o CUBO, o como se le quiera llamar) seguido del color. 
DIME LO QUE VES (o LO QUE PUEDES VER) 
REVUELVE LOS BLOQUES 

Podemos detener el programa en cualquier momento, sencillamente pulsando el 
RETURN (como se indica en la línea 150), cuando estemos preparados para hacer una 
pregunta o dar una orden. 

Y aquí tenemos el listado completo de BLOQUELANDIA (para usuarios del 


ZX Spectrum, véase Apéndice): 
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REM BLOQUELANDIA 

GOSUB 2580: REM INICIALIZACION 

REM ** IMPRIMIR EL CUADRO *x* 

CLS: PRINT: PRINT 

FOR X = 5 TO 1 STEP - 1 

PRINT TAB(8)5 

FOR Y = 1 TO 6 

PRINT CHR$(A(X, Y));5 

NEXT Y 

FRINT 

NEXT X 

PRINT: PRINT 

INPUT A$ 

PRINT 

IF As$ = "" THEN PRINT "FIN DEL PROGRAMA": END 
: REM TERMINA LA EJECUCION EN VEZ DE TENER 
QUE PRESIONAR LA TECLA DE ”RETURN” 


IF LEFT$(A$, 10) = "DONDE ESTA" THEN GOSUB 

240 

IF LEFTS$(A$, 11) = "DIME LO QUE" THEN GOSUB 

1040 

IF LEFT$(A$, 8) = "REVUELVE" THEN GOSUB 1260 

IF LEFT$(A$, 6) = "PON EL" THEN GOSUE 1480 

PRINT: PRINTa FRINT " >>>> PULSE ”>RETURN” 
PARA CONTINUAR": INPUT Zó$ 

GOTO 40 

END 


REM 0d 6 6 dd Hd dE 6 dd E A E 

REM "DONDE ESTA EL BLOQUE..." 

P=0 

B$ = MID$(AS, 15, 1) 

IF Bé = "R" OR B$ = "N" OR B$ = "A" OR 

B$ = "Y" THEN 350 

B$ = MID$(A$, 22, 1) 

IF Bé$ = "R" OR B$ = "N" OR B$ = "A" OR 

ES = "Y" THEN 350 

IF RND(1) > .7 THEN 320 

PRINT "LO SIENTO, NO TENGO INFORMACION DE ESO 
"5 GOTO 330 

PRINT "NO TENGO DATOS CON LOS QUE PODER RES 
PONDERTE" 

RETURN 

O 

M = ASC(B$) 

PRINT TAB(8)5 "> DEJAME VER AHORA <" 

X= 5 

1 


IF A(X, Y) = M THEN 430 


IF Y < 6 THEN Y = Y + 1: GOTO 390 

IF X > 1 THEN X = X —- 1: GOTO 380 

GOTO 300 

IF X > 1 THEN 900: REM ESTA ENCIMA DE OTRO 
IF Y > 1 THEN 540: REM NO ESTA EN LA IZQUIER 
DA 


REM RA 


460 
470 
480 


490 
500 
si0 
520 
530 
340 
350 
360 
5370 
580 
390 


600 
610 
620 
630 
640 
6530 
660 
670 


680 


6790 
700 
710 
720 
730 


740 
7530 
760 
770 
780 
790 
800 
810 
820 
ezo 


840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
930 
960 


REM ** EN LA IZQUIERDA *x* 

PRINT "ESTA EN LA IZQUIERDA" 

IF A(1, 2) = 46 THEN FRINT "NO HAY NADA INME 
DIATAMENTE A SU IZQUIERDA": GOTO 790 


Q = A(1, 2) 
PRINT 
PRINT "A SU LADO, PUEDO VER EL BLOQUE " 


GOSUB 2510 

GOTO 790 

IF Y < 6 THEN 650 

REM MM IA 

REM ** EN LA DERECHA *x* 

PRINT 

PRINT "ESTA EN EL LADO DERECHO" 

IF A(1l, 5) = 46 THEN PRINT "NO HAY NADA INME 

DIATAMENTE A SU DERECHA": GOTO 790 

FRINT "A SU IZQUIERDA FUEDO VER EL BLOQUE "; 

Q = A(1, 5) 

GOSUE 2510 

GOTO 790 

REM mdd 6 dd HA AI A 

REM *%* EN EL CENTRO *%* 

FRINT 

PRINT "ESTA EN LA CASILLA "5 Yi "DE LA IZ 
QUIERDA" 

IF A(X, Y - 1) = 46 THEN FPRINT "NO HAY NADA 

INMEDIATAMENTE A SU IZQUIERDA": GOTO 730 

Q = A(X, Y - 1) 

FRINT "EL BLOQUE "5 

GOSUB 2510 

PRINT "ESTA INMEDIATAMENTE A SU IZQUIERDA" 

IF A(X, Y + 1) = 46 THEN PRINT "NO HAY NADA 

INMEDIATAMENTE A SU DERECHA": GOTO 790 

QD = A(X, Y + 1) 

FRINT: FRINT "PUEDO VER EL BLOQUE "5 

GOSUB 2510 

PRINT " QUE LE ESTA TOCANDO FOR LA DERECHA" 

O 

REM ** HAY ALGO POR ENCIMA? ** 

PRINT 

P=x 

IF X = 5 THEN 900 

IF A(X + 1, Y) = 46 THEN PRINT: PRINT "NO HAY 

NADA FOR ENCIMA DE EL":z GOTO 3230 

PRINT: PRINT "ENCIMA ESTA EL BLOQUE "s 

Q = A(X + 1, Y) 

GOSUR 2510 

X= X + 1 

GOTO 820 

O 

REM x*% ESTA ENCIMA DE OTRO? ** 

IF F<>0 THEN X= FF 


FRINT 


IF X= 1 THEN 3230 

PRINT "ESTA INMEDIATAMENTE "s 
PRINT "ENCIMA DEL BLOQUE "; 

Q = A(X =- 1, Y) 
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17300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
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GOSUB 25310 

X= Xx-i1 

IF X< 2 THEN 330 

FRINT "QUE ESTA "; 

GOTO 950 

RETURN 

REM 06 HI RR 

REM ** DIME LO QUE VES ** 

FRINT "EMPEZANDO DESDE LA DERECHA" 

Y=6 

x= 5 

IF A(X, Y) <> 46 THEN 1140 

IF Y = 1 AND X = 1 THEN FRINT "FINALMENTE "; 
IF X = 1 AND A(X, Y) = 46 THEN PRINT "...UN 
ESFACIO "32 IF Y > 1 THEN FRINT "LUEGO" 

IF X > 1 THEN X X - 1: GOTO 1080 

IF Y > 1 THEN Y Y - 1: GOTO 1070 


RETURN 

L = INF(RND(1) * 2) 

IF L = O THEN PRINT "ESTA EL BLOQUE "3: GOTO 
1180 

IF Lo= 1 THEN PRINT "MIS SENSORES REGISTRAN 
EL BLOQUE "3: GOTO 1180 

PRINT "VEO EL BLOQUE "; 

Q= A(X, Y) 


GOSUE 2510 
IF X = 1 THEN 1120 


X= Xx-1 

PRINT "...Y MAS ABAJO DE EL...” 
GOTO 1170 

RETURN 


REM 0606 6-6 6 6 6 A MH 

REM *x* REVUELVE LOS BLOQUES ** 

PRINT 

IF RND(1) > .5 THEN FPRINT TABE(7)5 "YA ERA 

HORA, TAMBIEN": GOTO 1300 

PRINT "ESTA BIEN QUE LE DEN A UNO LA OPORTUNI 
DAD": PRINT TAB(4)5 "DE HACER LO QUE 


QUIERE" 
FOR X = 1 TOS 
FOR Y = 1 TO 6 
A(X, Y) = 46 
NEXT Y 
NEXT X 
Yi INT(RND(1) * 6) + 1 


= INTIRAD(1) * 6) + 1 
IF Y2 = Y1 THEN 1360 
= INT(RND(1) * 6) + 1 
Y3 = Y2 OR Y3 = Y1 THEN 1380 
Y4 = INT(RND(1) * 6) + 1 
IF Y4 = Y3 OR Y4 = Y2 OR Y4 = Y1 THEN 1400 


A(1, Y1) = 82 
A(1, Y2) = 78 
A(1, Y3) = 65 
A(1, Y4) = 86 
RETURN 


REM da 6 dd MI IE EI II A E A E EA E 


1820 
1830 


1840 
1850 
18650 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 


REM "FON EL BLOQUE. ..ENCIMA DEL BLOQUE..." 
L=0 

IF RND(1) > .5 THEN FPRINT TAR(S5)5 "COMPRENDO" 
¿ GOTO 1520 

PRINT TAE(8)5 "DE ACUERDO" 

IF MID$(A$, 8, 1) <> "B" THEN GOTO 1760: REM 
COMPRUEBA Y BIFURCA EN CASO DE HABERSE OMITI 
DO EL PRIMER ”ELOQUE” 

REM ** CASO: ”” BLOQUE-COLOR. . . BLOQUE-COLOR” ”? " 
E$ = MID$(As$, 15, 1) 


IF B$ = "R" THEN L = 38 
IF E$ = "A" THEN L = 2 
IF B$ = "V" THEN L = 39 
IF E$ = "N" THEN L = 41 


C$ = MID$(A$, L, 1) 

IF NOT (0% = "R" OR C$ = "A" OR C$ = "Y" OR 
C$ = "N") THEN 1840: REM COMPRUEBA Y BIFURCA 
CASO DE HABERSE OMITIDO EL SEGUNDO BLOQUE 


B = ASC(B%) 

C = ASC(C$) 

BANDERA = C 

REM ** ENCUENTRA EL BLOQUE EB$ ** 
X= 3 

Y =1 


IF A(X, Y) = B THEN 1900 

IF Y < 6 THEN Y = Y + 1: GOTO 1670 

IF X > 1 THEN X= X - li: GOTO 1660 
PRINT "NO PUEDO ENCONTRAR EL BLOQUE "; 


0=B 

GOSUB 2610 

FOR T = 1 TO 2000: NEXT T 

RETURN 

REM ** CASO: **-==---- COLOR. +. --==-- COLOR*>" **. 
B$ = MID$(A$, 8, 1) 

IF E$ = “R" THEN L = 24 

IF E$ = "A" THEN L = 24 

IF B$ = "Y" THEN L = 25 

IF B$ = "N" THEN L = 27 


IF NOT (L = 24 OR L = 25 OR L = 27) GOTO 1840 
: REM COMPRUEBA Y BIFURCA EN EL CASO DE HABER 
PUESTO EL SEGUNDO “BLOQUE” 

GOTO 1590 


REM ** CASOS: **BLOQUE-COLOR.. .------ COLOR* * 
Yo COLOR. . .BLOQUE-COLOR*”  ** 

IF B$ = "R" THEN L = 31 

IF E$ = "A" THEN L = 31 

IF B$ = "Y" THEN L = 32 

IF B$ = "N" THEN L = 34 

C$ = MID$(A$, L, 1) 

GOTO 1610 


R=X:S5=Y 

REM *x* EL BLOQUE ESTA EN R, S ** 

REM *x* ESTA VACIA LA CASILLA DE DESTINO? **x 
IF A(R + 1, S) = 46 THEN 2070: REM *SI” 

IF A(R + 2, S) = 46 THEN TAREA = 1: GOTO 1960 
TAREA 31 IF A(R + 3, S) = 46 THEN TAREA = 2 
FOR W TAREA TO i STEP - 1 
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1970 
1980 
1990 
2000 
2010 


2020 
2030 
2040 


PRINT "DEBO MOVER EL BLOQUE " 
Q = AR + W, S) 

GOSUB 2510 

DE = INT(RND(1) * 6) + 1 

IF DE = S OR A(1, DE) = C OR A(2, DE) = C OR 
A(, DE) = C THEN 2000 
PRINT "ESTOY MOVIENDOLO A LA COLUMNA "; DE 
Lo=1 

IF A(L, DE) = 46 THEN A(L, DE) = A(R + W, S): 


A(R + Wy 5) = 46: GOTO 2060 


2050 
2060 
2070 


2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
ZO 
2340 
2300 
2360 
2370 


2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 


L=L+di: GOTO 2040 

NEXT W 

REM LA CASILLA DE DESTINO EN R, S ESTA AHORA 
LIBRE 

REM ** ESTA LIBRE LA CASILLA DE PARTIDA? *x* 

REM xx ENCUENTRA EL BLOQUE ex 

X= 5 

Y =1 

IF A(X, Y) = C THEN 2210 

IF Y < 6 THEN Y = Y + 13 GOTO 2120 

IF X > 1 THEN X = X - 12 GOTO 2110 

PRINT "NO FUEDO ENCONTRAR EL BLOQUE "5 

Q=C 

GOSUE 2510 

FOR J = 1 TO 2000: NEXT J 

RETURN 

REM ** SE HA ENCONTRADO Ces 

T=X:U= Y: REM LOCALIZACION DE C 

IF A(T + 1, U) 46 THEN 2390 


IF A(T + 2, U) = 46 THEN TAREA = 1: GOTO 2250 
IF A(T + 3, U) = 46 THEN TAREA = 2 

DE =INT(RND(1) * 6) + 1 

IF DE = U OR DE = S THEN 2250 

FOR W = TAREA TO 1 STEP - 1 

PRINT "AHORA MOVERE EL BLOQUE "; 

Q = A(T + 04w U) 

GOSUB 2510 

PRINT 

PRINT "ESTOY MOVIENDOLO A LA COLUMNA "; DE 
L=1 


IF A(L, DE) = 46 THEN A(L, DE) = A(T + W, U): 

A(T + W, U) = 46: GOTO 2360 

Lo= L + di: GOTO 2340 

NEXT W 

REM ** LA CASILLA DE PARTIDA AHORA ESTA LIBRE 
HA 

REM %** REALIZA EL MOVIMIENTO +» 

PRINT "AHORA ESTOY PONIENDO EL BLOQUE "; 

Q = A(R, S)1 Z = A(R, 9) 

GOSUB 2510 

PRINT "ENCIMA DEL BLOQUE "; 

IF A(T, U) = 46 THEN A(T, U) = BANDERA 

Q =A(T, U) 

GOSUB 2510 

A(R, S) = 46 

A(T+ 1, U) =Z 

FOR J = 1 TO 2000: NEXT J 


2490 RETURN O 
2500 REM 463646366 06 46d dE dE dE dE dE Ds 
2510 REM NOMBRE DEL COLOR 
/ 2520 IF Q = ASC("R") THEN PRINT "ROJO" : | 
O (2530 IF Q = ASC("N") THEN PRINT "NARANJA " 3 SE 
2540 IF Q = ASC("A") THEN PRINT "AZUL " | 
2550 IF Q = ASC("Y") THEN PRINT "VERDE " 
2560 RETURN 
l Kar "2570 REM 4400 de de dd de 16 6 dE dE dE 
! 2580 REM INICIALIZACION 
| / 2590 CLS 
2 2600 RANDOMI ZE e 
2 1 2610 DIM A(S, 6) po 
TO 3 ' | 


| 2620 FOR X = 1 
2630 FOR Y = 1 106 | 
= 46 ox 


O) | 2640 A(X, Y) 
(2650 NEXT Y | 
2660 NEXT X | 
Lo 1 2670 A(1, 2) = ASC("R"): REM BLOQUE ROJO | 
|. CJ 2680 A(1, 3) = ASC("N")z REM BLOQUE NARANJA 
| 2690 A(1, 4) = ASC("A"): REM BLOQUE AZUL 
2700 A(1, 5) = ASC("V"): REM BLOQUE VERDE | 
2710 RETURN a] 


"nun... 


Para mejorar el programa 


Aunque el rendimiendo de BLOQUELANDIA en su forma presente ya es bastante 
encomiable, todavía se puede hacer mucho por él. Como hemos visto, consta de una sen- 
cilla estructura modular en la que una sola subrutina se encarga de cada tipo de orden. 
Así pues, para aumentar sus habilidades, podemos ampliar la sección de reconocimiento 
del vocabulario del inicio del programa y utilizarla después para poner en acción nuevas 
subrutinas. : 

Podríamos empezar, por ejemplo, dándole al programa la capacidad de mover los 
bloques hacia la derecha o hacia la izquierda, en vez de sólo encima o debajo de otros 
bloques como lo hace ahora. Una vez que hayamos conseguido esto (asegurándonos asi- 
mismo de que el programa cuenta con un medio de rechazar las peticiones ““imposibles””, 
como la de intentar que ponga un bloque a la derecha de otro que ya está totalmente a la 
derecha del marco), podríamos tratar de añadir un quinto bloque o, quizá, otra figura 
diferente —o más de una—. Finalmente, cada uno puede crear enteramente, empezando 
por el principio, su propio programa, haciendo que los bloques y otros elementos se 
muevan en tres dimensiones, de modo que ““delante”” y “detrás”? fueran órdenes válidas. 

Con el fin de que el lector pueda sacar nuevas ideas sobre lo que puede hacerse, vol- 
veremos a considerar ahora el programa decisivo en este campo, SHRDLU, escrito por 
Terry Winograd. Lo que vimos antes, en este mismo capítulo, era el inicio de la conver- 
sación que viene a continuación. En primer lugar, éste es el croquis de la situación sobre 
la que hablan programador y programa: 
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1 
) Coge el bloque rojo grande 
- > DE ACUERDO 
Agarra la piramide 
> NO COMPRENDO LO QUE ME DICES DE LA 
FIRAMIDE 
Busca el bloque que es mas alto que el 
que tienes, e introducelo en la caja. 
> FOR "LO" , SUFONGO QUE TE REFIERES 
AL BLOQUE QUE ES MAS ALTO QUE 
EL QUE TENGO 
> DE ACUERDO 
Que es lo que hay en la caja? 
> LA PIRAMIDE AZUL Y EL BLOQUE AZUL 
Quien sostiene a la piramide”? 
> LA CAJA 
Cuantos bloques no estan en la caja”? 
> CUATRO 
Hay al menos uno de ellos mas estrecho 
que el que te dije que cogieras? 
> 51, EL CUBO ROJO 
Le sostiene alguien? 
> SI, LA MESA 
Puede la mesa recoger bloques? 
> NOD 
Puede un bloque sostener a una piramide”? 
> SI 
Fuede una piramide sostener a otra piramide” 
+ NO LO SE 
Levanta dos piramides 
+ NO PUEDO 
La piramide azul es mia 
> COMPRENDO 


Y esto no es nada comparado con lo que vamos a ““oír”” ahora. Se incluye aquí una 
manipulación lógica que incluso los seres humanos encontrarían difícil de seguir. Sigue. 
así la conversación: 
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Tengo todos los bloques que no son rojos, 
pero no tengo nada con que sostener a una 
piramide. 

> COMPRENDO 
Tengo yo la caja? 
> NO 
Tengo algo en la caja? 
> SI, DOS COSAS: EL BLOQUE AZUL Y LA FIRAMI 
DE AZUL 

Que cubo esta encima de la mesa? 

> EL VERDE GRANDE QUE SOSTIENE A LA FIRAMIDE 
ROJA 

Hay algun bloque grande detras de la 
piramide? 
> SI, HAY TRES: UN CUBO ROJO GRANDE, UNO 

VERDE GRANDE Y EL. AZUL 

Pon el pequeno dentro del cubo verde que 
sostiene a la piramide. 
> DE ACUERDO 

Pon la piramide mas pequena encima de el 
> DE ACUERDO 

Cuantas cosas hay encima de los cubos verdes”? 
> NO ESTOY MUY SEGURO DE LO QUE QUIERES 

DECIR CON "ENCIMA DE" EN LA FRASE 
"ENCIMA DE LOS CUBOS VERDES" 
> QUIERES DECIR: 
1 - DIRECTAMENTE SOBRE LA SUFERFICIE 
2 - ENCIMA DE CUALQUIER PARTE? 

Has tocado alguna piramide antes de poner el 
cubo verde sobre el cubo pequeno”? 
> SI, EL VERDE 

Cuando lo cogiste? 
> CUANDO ESTABA GUARDANDO EL CUBO ROJO, EL 

ROJO GRANDE Y EL VERDE GRANDE 

Por que? 
> PARA DESHACERME DE EL 

Por que querias hacer eso? 
> PARA DEPEJAR EL CUBO ROJO 

Por que querias despejar ese cubo? 
> FARA FONER SOBRE EL EL CUBO VERDE GRANDE 

Por que hiciste eso? 
> PORQUE ME LO PEDISTE 


¿Qué más podríamos añadir? Ahora que ya has visto lo que SHRDLU y BLOQUE- 
LANDIA son capaces de hacer, ponte manos a la obra y haz tú mismo, lector, algo pa- 


recido. 
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| 8 
El médico en casa 


Ningún estudio sobre el ““procesado de una lengua natural”” sería un estudio comple- 
to si no incluyera un comentario sobre ELIZA, el programa más famoso de este tipo (y, 
en un momento determinado, el programa más famoso de todos). 

ELIZA fue creado entre 1964 y 1966 por Joseph Weizenbaum, a la sazón profesor de 
Informática del Institute of Technology en Massachusetts. La idea era que el programa 
adoptara el papel de un psiquiatra de la escuela de Carl Rogers (Weizenbaum siempre in- 
sistió en que su intención era parodiar a los profesionales de esta escuela). El método de 
trabajo de un psiquiatra rogeriano consiste en negarse a dirigir la conversación con el pa- 
ciente, prefiriendo, en vez, reflejar en éste sus propias observaciones, de tal modo que la 
conversación siempre depende del paciente. 

La reacción ante el programa —una vez que se hizo público— primero asombró y 
después pasó a preocupar seriamente a Weizenbaum. A resultas de esto, Weizenbaum 
dejó el Institute por dos años para meditar sobre las profundas implicaciones de su expe- 
riencia con ELIZA, y durante este tiempo escribió una de sus obras más importantes 
(importantísima también para el campo de la informática en general); se trata de Com- 
puter Power and Human Reason (San Francisco, W. H. Freeman and Co., 1976). Yo no 
estoy de acuerdo con todo lo que se dice en esta obra, pero esto no disminuye la impor- 
tancia del libro en sí mismo. Independientemente de mis propias opiniones al respecto, 
es un libro cuya lectura recomiendo fervorosamente a todos aquellos que estén de verdad 
interesados en el estudio de la inteligencia artificial y en las relaciones y dependencias 
que se desarrollan entre el hombre y la máquina. 

El programa de Weizenbaum se utiliza tecleando por nuestro lado una “*conversa- 
ción”” a la que el programa responde utilizando su almacén de respuestas. Aquí tenemos 
un ejemplo de una conversación típica, sacado de la ejecución de ELIZA que se da en 
este libro: 
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>? YO ESTOY CON MIEDO FOR HABLAR EN PUBLICO 


CREE QUE ES NORMAL. ESTAR 
CON MIEDO POR HABLAR EN FUBLICO 


>? PIENSO QUE UN MONTON DE GENTE LO TIENE 


FIENSA REALMENTE ESO? 
>? SI LO PIENSO 


PARECE MUY SEGURO DE ELLO 


>? HABLARLE A UN ORDENADOR ES BASTANTE ABURRIDO 


LO FIENSA SORRE MI EN FARTICULAR? 


Weizenbaum escogió el nombre de ELIZA porque pensó que, como en el caso de la 
Eliza de Pygmalion, éste iría aprendiendo a hablar cada vez mejor. El programa ELIZA 
original se escribió en dos partes. La primera analizaba la entrada del usuario y la se- 
gunda era un “guión”. Se idearon diferentes guiones para los diferentes temas que 
podrían tratarse y DOCTOR era uno de estos guiones. (Otros guiones podían mantener 
conversaciones sobre buques antiguos, el cambio de la moneda o lo que fuera.) 

El DOCTOR (un psiquiatra rogeriano) fue el primer guión que probó Weizenbaum. 
El programa enseguida se hizo famoso en el Institute porque era un medio muy efectivo 
de demostrar el poder de un ordenador (recordemos que esto sucedía hace mucho, mucho 
tiempo, en una galaxia lejana, cuando la gente no podía comprarse un ordenador en la 
tienda del ramo más próxima a su domicilio). 

A su debido tiempo, Weizenbaum informó de su trabajo sobre ELIZA a la prensa 
especializada (“'ELIZA. A Computer Program For the Study of Natural Language 
Communication Between Man and Machine”, Communications of the Association 
for Computing Machinery, vol. 9, núm. 1, enero 1965, pp. 36-45) y no tardó en haber 
un gran número de versiones —basadas en su descripción— repartidas por otras institu- 
ciones de Estados Unidos. 

Weizenbaum nos dice que fundamentalmente fueron tres los acontecimientos que le 
chocaron al irse propagando el uso de ELIZA. En primer lugar, se quedó horrorizado 
(yo no llego a comprender por qué se alarmó tanto como nos dice) al descubrir que la 
gente inmediatamente se sentía involucrada en el programa. 

Cuenta también Weizenbaum que incluso su secretaria, que había trabajado con él en 
el desarrollo del programa durante varios meses, y que, por tanto, debería estar en si- 
tuación de darse cuenta de que era sólo un programa, empezó a tener una relación emo- 
cional con éste. Siempre cuenta Weizenbaum cómo en una ocasión esta misma secretaria 
empezó a usar el programa y cuando no llevaría introducidas más de unas cuantas frases 
se quedó callada y, muy avergonzada, le pidió que saliera un momento de la habitación 
mientras ella continuaba la “conversación”. 

En otra ocasión Weizenbaum sugirió la idea de poner una impresora para tener una 
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transcripción de las conversaciones que la gente tenía con el programa. La idea fue aco- 
gida con espanto por parte de todo el mundo, ya que significaba que Weizenbaum 
podría fisgoner en conversaciones totalmente privadas. 

Una de las cosas que más le preocupaban era la fuerza con la que la gente se identifi- 
caba con el programa, dándole una personalidad, y compartía con él sus pensamiento, 
más íntimos. Dijo que no había calculado el “*“poder de engaño”” que un programa, bas- 
tante simple, por otro lado, podía crear en la gente normal. 


La conexión rusa 


Pamela McCorduck, en su espléndido libro Machines Who Think (San Francisco, 
W. H. Freeman and Co., 1979), confirma el efecto que puede tener el programa. Nos 
cuenta que la primera vez que vio ELIZA ejecutado y charlando fue en el Stanford Com- 
putation Center con motivo de la visita de un científico soviético, muy conocido interna- 
cionalmente en el campo de la informática, a quien le estaban enseñando las instalacio- 
nes del centro. 

Este se sentó ante el ordenador, que estaba conectado a una versión del programa 
escrita por uno de los colegas de Weizenbaum, Kenneth Colby (a quien volveremos a en- 
contrar más adelante), y empezó a teclear. McCorduck nos cuenta la vergiienza que llegó 
a pasar cuando, lanzado ante la frase CUENTAME ALGO DE TU FAMILIA, el 
científico empezó a comentar en profundidad ciertos problemas personales, olvidándose 
de todos los que le rodeaban. 

Weizenbaum descubrió que algunos accesos al programa, mediante las terminales a 
tiempo compartido que había repartidas por la universidad, a menudo llegaban a durar 
una hora o más y muy frecuentemente se hacían a altas horas de la madrugada. Recibía 
asimismo llamadas telefonías de gente que quería acceder al programa durante un rato 
pensando que así solucionarían sus problemas. 

Colby, a quien acabamos de mencionar, había conocido a Weizenbaum algún tiempo 
antes, en Stanford. Era profesor de Psiquiatría en la Universidad de California y estaba 
interesado en la inteligencia artificial. Pensaba que los hallazgos que se hicieran en ésta 
podrían llevar a nuevas visiones sobre el pensamiento humano (y, además, Colby espera- 
ba sacar nuevas ideas aplicables a sus estudios sobre el comportamiento neurótico). An- 
tes de que apareciera el primer trabajo de Weizenbaum sobre ELIZA, Colby publicó una 
breve notificación sobre este tema en el Journal of Nervous and Mental Diseases. 

Esto provocó la separación de ambos; en primer lugar, porque Weizenbaum no esta- 
ba de acuerdo en aboluto con las tesis de Colby, para quien el programa podría tener 
aplicaciones terapéuticas, pero además porque, al parecer, Colby no citó a Weizenbaum 
por su trabajo en el ELIZA. 

Colby y dos colegas más opinaban que una versión mejorada de DOCTOR podría te- 
ner un genuino uso terapéutico. Pensaban que se podría poner a disposición de los hos- 
pitales que tuvieran problemas de escasez de personal, de modo que los pacientes pu- 
dieran pedir acceder al programa (vía un sistema de terminales compartidas) cada vez 
que lo consideraran necesario. A Weizenbaum todas estas ideas le aterraban. Dice que 
consideraba vital que hubiera, como punto de partida para que una persona pudiera 
ayudar a otra a enfrentarse con sus problemas, un reconocimiento de éstos por parte de 
otro humano. 
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Shocks breves y agudos 


Weizenbaum no daba crédito a sus ojos al ver que incluso un psiquiatra era de la opi- 
nión de que el proceso curativo podría sustituirse por la mera técnica mecánica. Seme- 
jante idea nunca había pasado por su cabeza. Es más, aun en el caso de que pudiera 
hacerse, no debería hacerse. Hay ciertas áreas a las que nunca se debería permitir que ac- 
cedieran las máquinas, opinaba Weizenbaum, aun cuando éstas estuvieran capacitadas 
para hacerlo. 

Colby no escarmentó con la respuesta de Weizenbaum. Al parecer, no tenía ningún 
inconveniente en considerar la posibilidad de que la técnica pura podría ser eficaz en su 
campo. Y seguía defendiendo su opinión diciendo que sólo los legos confundían la psico- 
terapia con el matrimonio. Según él, lo que importaba era la relación profesional, de tra- 
bajo, entre un psicoterapeuta y un paciente. 

Más exactamente, Colby atacaba la afirmación de Weizenbaum de que había áreas 
en las que nunca se deberían utilizar las máquinas. ¿Por qué no?, preguntaba Colby. 
¿Sólo porque el señor Weizenbaum dice que no? ¿Es que cree que ayudar a la gente con 
el ordenador es peor que dejarla sufrir? ¿Acaso no debe explorar el terapeuta todos los 
medios a su alcance, aunque sólo sea para comprobar si alguno de ellos resulta ser ge- 
nuinamente efectivo? 

Las opiniones de Colby las secunda en mayor o menor grado Carl Sagan, quien últi- 
mamente piensa en desarrollar la idea de poner a disposición del público un programa 
parecido al ELIZA —a unos cuantos dólares la sesión— en habitáculos especialmente 
construidos para ello, algo parecido a las cabinas telefónicas (Broca*s Brain, Londres, 
Coronet Books, 1980, p. 300). 

Independientemente del “valor real”? del bueno de DOCTOR (como quiera que lo 
juzguemos), no hay ninguna duda de que el programa marcó un hito significativo en la 
historia de la producción de programas que parecen mostrar cierta inteligencia. 

Y aquí es donde Weizenbaum volvió a recibir un shock. Recordemos que primero se 
había quedado asombrado ante la inequívoca antropomorfización que sufrió el progra- 
ma. Luego pasó a alarmarse seriamente cuando se empezó a sugerir que ELIZA podría 
ocupar el lugar o, al menos, ayudar a los terapeutas humanos. El tercer shock le vino al 
observar que mucha gente se llegó a creer de verdad que el programa era en cierto modo 
una demostración palpable de que se estaba a un paso de que las máquinas llegaran a 
comprender el lenguaje humano. El había rechazado totalmente esta idea. En realidad, 
en el primer artículo que publicó sobre el programa, Weizenbaum hizo gran hincapié en 
la idea de que era imposible encontrar una solución general para este problema. 

Decía antes que no estaba de acuerdo con todo lo que Weizenbaum afirma en su 
libro Computer Power and Human Reason. Uno de los puntos para mí más discutibles 
es la afirmación de que “hay ciertas cosas que nunca deberían ser hechas por las má- 
quinas””. John McCarthy (1976, *“*An Unreasonable Book””, en Three Reviews of J. Wei- 
zenbaum's Computer Power and Human Reason, Memo AIM-291, Stanford Al Labora- 
tory, noviembre) es de la opinión de que si hay funciones que no se deben enseñar ni de- 
jar que lleve a cabo un ordenador, se trata de funciones que no se deberían realizar en 
absoluto, ya se trate de una persona o de un ordenador. 

Son más de uno los que comparten esta misma opinión. En su libro Artificial Reality 
(1983, Addison-Wesley Publishing Co., Reading, MA, p. 168), Myron W. Krueger dice 
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que aun cuando fuera verdad que Weizenbaum se sintió horrorizado con la idea de utili- 
zar su programa —o un desarrollo de éste— en ciertos tipos de terapia, tal horror carecía 
de fundamento y justificación. 

No obstante, al margen de lo que yo (y otros) pueda pensar de las tesis de Weizen- 
baum y del valor de su libro (ya dije antes que creo que es un libro que deberían leer to- 
dos los interesados en'el tema, aunque sólo fuera para aportar su granito de arena a este 
debate), no cabe duda de que tanto ELIZA como DOCTOR han demostrado ser unos 
compañeros extremadamente divertidos. El lector lo comprobará enseguida por sí mismo. 

Y no sólo se divertirá, sino que además estará en situación de juzgar si de verdad el 
programa sugiere que la inteligencia reside en la máquina que lo está ejecutando. Adrian 
Berry (en su libro The Super-Intelligent Machine, Londres, Jonathan Cape Ltd., 1983, 
página 63) llega a la conclusión de que ELIZA (y PARRY, un programa ideado para 
imitar a un paciente paranoico) no demuestra nada en cuanto a la posibilidad de que 
pueda llegar a darse una verdadera inteligencia. 

El mismo lector observará que sus opiniones oscilan según usa el programa. Cuando 
DOCTOR haga alguna observación particularmente inspirada y apropiada al momento, 
sentirá que ésta es una prueba clara de inteligencia, al menos a cierto nivel. En otras oca- 
siones, descubrirá que DOCTOR es ideal sencillamente para pasar un buen rato, ya que 
lo que dice, a veces, no tiene ni pies ni cabeza. Nadie nos haría unas preguntas tan ab- 
surdas (¿ACUDIO A MI PORQUE YO ESTABA MUERTO?, le preguntó una vez una 
ejecución del programa a Berry, según nos cuenta éste en su libro) o sacaría tan inocen- 
temente unas conclusiones no por erróneas menos soberbias, como el trocito de conver- 
sación que viene a continuación, que forma parte de la ejecución de muestra del progra- 
ma que incluimos en este capítulo (DOCTOR habla en mayúsculas): 


Siento que usted esta eludiendo mi pregunta A] 
SIENTE A MENUDO QUE YO ESTOY ELUDIENDO SU PREGUNTA ¡ ! 
Lo siento cuando hablo con un ordenador ES 
LAS COSAS SUELEN OCURRIR CASI SIEMPRE EN EL MOMENTO OFORTUNO a, 


¿Qué otra cosa podemos hacer ante una afirmación tal sino alzar un brindis por Jo- 
seph W., progenitor de ELIZA y de todos sus retoños, y esperar que nos siga ofreciendo 
más cosas de este tipo? Creo que ahora ha llegado el momento de que dediquemos un 
poco de atención al programa en sí mismo. 


El programa 


Una vez que ya sabemos cómo se escribió ELIZA y cuál fue la reacción que provocó 
su versión de DOCTOR, echemos un vistazo al funcionamiento de nuestra propia ver- 
sión del programa. Lo que viene a continuación es una ejecución de éste. La entrada de 
la persona va precedida por el signo >? y una línea de puntos separa cada una de las 
afirmaciones del humano y la respuesta del ordenador del siguiente par de afirma- 
ción/respuesta: 
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EL DOCTOR ESTA EN LA CONSULTA. ..POR FAVOR ESPERE 


BIENVENIDO A OTRA SESION 
CON EL DOCTOR... 


HOLA... 
>? YO ESTOY CON MIEDO FOR HABLAR EN PUBLICO 


CREE QUE ES NORMAL ESTAR 
CON MIEDO POR HABLAR EN PUBLICO 


>? PIENSO QUE UN MONTON DE GENTE LO TIENE 
PIENSA REALMENTE ESO? 

>? SI LO PIENSO 

PARECE MUY SEGURO DE ELLO 

>? HABLARLE A UN ORDENADOR ES BASTANTE ABURRIDO 
LO PIENSA SOBRE MI EN PARTICULAR? 

>? VIENE DE MI LUCHA CONTINUA DIA Y NOCHE 


AL PRINCIPIO ME HABLO DE SU PROFESOR LOCO 
CUENTEME ALGO MAS 


>? EMPEZO CUANDO TENIA DIEZ ANOS 
ESO ES MUY INTERESANTE 
>? ESTOY CON MIEDO DE IR A LA ESCUELA AHORA 


ACUDIO A MI PORQUE ESTA 
CON MIEDO DE IR A LA ESCUELA AHORA 


>? CREO QUE ES VERDAD 
PERO NO ESTA SEGURO QUE ES VERDAD 
>? TAL VEZ HAY OTRAS RAZONES 


ESO ES MUY INTERESANTE 


>? TAMBIEN TENGO PROBLEMAS CON MI HERMANO 

NO SEA TAN ESCUETO, POR FAVOR ACLARELO UN POCO MAS 
>? CREO QUE EL ME ODIA 

DUDA QUE EL LE ODIA 

>? SIENTO QUE USTED ESTA ELUDIENDO MI FREGUNTA 
SIENTE A MENUDO QUE YO ESTOY ELUDIENDO SU PREGUNTA 
>? LO SIENTO CUANDO HABLO CON UN ORDENADOR 


LAS COSAS SUELEN OCURRIR CASI SIEMPRE EN EL MOMENTO OPORTUNO 


>? ESA ES UNA RESPUESTA ESTUPIDA DE UN ORDENADOR 


QUE ASFECTOS DE LOS ORDENADORES LE INTERESAN MAS”? 


>? LOS QUE ME AYUDEN EN MIS PROBLEMAS 


NO SEA TAN ESCUETO, POR FAVOR ACLARELO UN FOCO MAS 


>? ME GUSTARIA SACUDIRLE A MI HERMANO o 


QUE SUFONDRIA EN SU VIDA SI USTED CONSIGUIERA 
SACUDIRLE A SU HERMANO 


27 ME HARIA SENTIRME MUY BIEN 

VAMOS A EXAMINAR AFIRMACION MAS DETENIDAMENTE 

272 ME SIENTO INFERIOR CUANDO EL ME HABLA 
DISFRUTA SINTIENDOSE INFERIOR CUANDO EL LE HABLA 
27? FUES CLARO QUE NO DISFRUTO 


LE SUGIERE QUE EXISTE ALGUNA CONEXION 
ENTRE ESO Y SU HERMANO? 


>? LA RELACION ESTA CLARA PARA CUALQUIERA 


NO SEA TAN ESCUETO, POR FAVOR ACLARELO UN FOCO MAS 


>? QUIERO ALGO DE AYUDA CON MIS AFRENSIONES 


QUE SUFONDRIA EN SU VIDA SI CONSIGUIERA 
ALGO DE AYUDA CON SUS AFRENSIONES 


>? CREO QUE ME SENTIRIA MUCHO MEJOR 


DUDA QUE LE SENTIRIA MUCHO MEJOR 


7 >? SIEMPRE HE QUERIDO SER LIBRE 
NO LE PARECE QUE *SIEMPRE” ES UN POCO EXAGERADO? 


>? CREO QUE SI 


FOR QUE NO RETROCEDEMOS UN POCO 
Y HABLAMOS POCO MAS DE SU APRENSIONES? 


Esta ejecución de muestra es bastante impresionante y estoy seguro de que en cuanto 
el lector haya usado el programa unas cuantas veces descubrirá el tipo de frases y pa- 
labras a las que mejor responde el programa. Asimismo, como ya señalaba antes, es una 
demostración excelente para aquellos que no están muy acostumbrados al funcionamien- 
to de los ordenadores. (Pero se ha de tener cuidado no vaya a ser que entre en juego ese 
“poder de engaño”” del que hablaba Weizenbaum y nos encontremos con que uno de 
nuestros amigos empieza a confiar a nuestra máquina sus secretos más íntimos.) 


Funcionamiento 


El programa es, en esencia, sencillo. El ordenador acepta una entrada en cadena alfa- 
numérica introducida por el usuario y después la examina buscando las “frases clave”” 
(tales como CREO o ¿POR QUE NO PUEDO?) para las que tiene un stock de respues- 
tas. Si no consigue encontrar ninguna de estas frases, buscará entonces “*palabras clave”” 
(como ORDENADOR) y, del mismo modo, escoge una de las tres respuestas preprogra- 
madas para esa clave. 

Si no encuentra ninguna clave (ni frase, ni palabra), mirará si tiene almacenada algu- 
na frase del usuario de una entrada anterior (como ACTITUD o PROFESOR CHIFLA- 
DO), y si la tiene, crea una pregunta partiendo de esta información. Si así tampoco con- 
sigue encontrar una respuesta, escogerá entre una serie de respuestas aleatorias (como 
NO ESTOY SEGURO DE ENTENDER ESO POR COMPLETO o algo similar) que se 
programaron con la idea de mantener viva la conversación. 
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AL FRINCIPIO ME HABLO DE SU ACTITUD 
CUENTEME ALGO MAS 


+? ES UNA PREOCUPACION FARA MI 


QUE GRADO DE CERTEZA DEFOSITARIA EN ELLO SENDO 
UNA PREOCUPACION FARA USTED 


A e e AA A e e e e 


>? MUCHA PORQUE LA TIENE 


QUE OTRAS RAZONES RECUERDA? 


El banco de respuestas 


La parte más importante del programa, y la más divertida a la hora de modificarla o 
ampliarla, es el inmenso banco de sentencias DATA que aparece al final de éste. 
(Comprobará el lector que las últimas sentencias DATA son una serie de asteriscos. Se 
ha hecho así para terminar la lectura y permitir que el usuario pueda añadir más DATA, 
independientemente de los que ya haya. Las sentencias DIM para que las matrices de ca- 
denas alfanuméricas contengan estos DATA son más grandes de lo que debieran ser, con 
el fin de que el usuario pueda añadir más palabras, si así lo desea.) 

Veremos que el primer conjunto de sentencias DATA cubre la conjugación de los 
verbos y la declinación de los pronombres: 


1410 REM *x* DATOS +*x* 

1420 REM ** CONJUGACIONES *x* 

1430 DATA SOY, ES, ERA, ERA, YO, USTED, MI, SU, 
MIS, SUS 

1440 DATA "USTED TIENE", "YO TENGO", SU, MI, ES, 
SOY, ME, LE 

1450 DATA "USTED ESTA", "YO ESTOY", SUYO, MIO, 
USTED, MI, MI, USTED, *, * 


El ordenador los usa exactamente igual a como lo hace en el caso de TRADUCTOR; 
es decir, maneja el español intercambiando cada palabra por su pareja. Esto significa lo 
siguiente: si por ejemplo le decimos ESTOY RECIBIENDO TU MENSAJE, el ordena- 
dor sencillamente intercambiará pronombres y verbos, respondiendo ESTAS RECI- 
BIENDO MI MENSAJE. De hecho, esta es la forma que adoptaba el programa DOC- 
TOR original y se puede decir que incluso este limitado tipo de intercambio puede ser 
muy significativo. : 

Tras esto vienen las sentencias DATA principales, que se cuidan del intercambio de 
la mayoría de las frases. Las hay de dos tipos. El primer tipo usa ya sea una palabra o 
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una frase corta (utilizada al inicio de la entrada del usuario) y después escoge una res- 
puesta completa del banco de respuestas, sin tomar ninguna palabra directamente de la 
entrada del usuario (es decir, no responde utilizando ninguna de ellas). En estos ejem- 
plos, las primeras sentencias DATA de cada una de las cuatro es la ““clave”” sacada de la 
entrada del usuario y las tres siguientes son aquéllas de entre las cuales el ordenador es- 
coge su respuesta: 


OS 


1830 DATA "COMO" 

1840 DATA "COMO ARREGLARIA ESO?" 

18530 DATA "LO MEJOR SERIA QUE SE RESFONDIERA A ESO 
USTED MISMO" 

1860 DATA "QUE ES LO QUE REALMENTE ESTA FREGUNTAN 
DOS" 


2030 DATA "FORQUE" 

2040 DATA "ES ESA LA VERDADERA RAZON?" 

2030 DATA "QUE OTRAS RAZONES RECUERDA?" 
2060 DATA "QUE MAS FUEDE EXFLICAR ESO?" 


Un mayor interés tienen las “frases clave”? que se usan como inicio de la respuesta 
del ordenador, siendo la respuesta el resto de la entrada original del usuario (después de 
hacer los cambios necesarios en la conjugación): 


1470 DATA "NECESITO" 
1480 DATA "POR QUE NECESITA*" 
1490 DATA "NO SERIA REALMENTE PROVECHOSO SI USTED* 


1500 DATA "ESTA SEGURO DE QUE NECESITA*" 


1670 DATA "YO ESTOY" 
1580 DATA "ACUDIO A MI PORQUE ESTA+*" 
xy 1690 DATA "CUANTO TIEMPO HA ESTADO+*" 
WN 1700 DATA "CREE QUE ES NORMAL ESTAR+*" 


| 2510 DATA "ESTA" 

| 2520 DATA "FIENSA QUE ESTAR+*" 

¡ 2530 DATA "EN QUE CIRCUNSTANCIAS ESTARIA*" 
| 2540 DATA "BIEN FODRIA SER QUE+*" 


Hemos de observar que cada una de las frases que forman parte de la respuesta ter- 
minan con “**””, lo que utiliza el ordenador a modo de bandera o señalizador para indi- 
car que esa parte de la entrada original ha de ser modificada para completar la sentencia. 
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Veamos cómo funciona en la práctica. Supongamos que la entrada del usuario fuera 


la siguiente: 
QUIERO MOSTRARLE LA VERDAD SE 
ia 


El DOCTOR examina los contenidos de la matriz de cadenas alfanuméricas C$ y en- 
cuentra el elemento que contiene QUIERO. Los elementos equivalentes de las matrices 
D$, ES y F$ contienen los inicios de las respuestas adecuadas, como vemos aquí: 


LJ 1750 DATA "QUIERO" 
1760 DATA "QUE SIGNIFICARIA FARA USTED SIx«*" 
1770 DATA "POR QUE QUIERE*" 
1780 DATA "QUE SUPONDRIA EN SU VIDA SI USTED CONSI 
GUIERA*" 


A A 


El DOCTOR genera un número aleatorio entre uno y tres e imprime el elemento D$ 
si es uno, el E$ si es dos y el F$ si es tres (habiendo comprobado previamente que termi- 
na con un asterisco, y si es así, lo anota y después lo quita antes de imprimir). Suponga- 
mos que el ordenador ha escogido la respuesta D$. Su respuesta sería entonces: 


A 
POR QUE QUIERE [] 
al 


Luego recorre el resto de la entrada del usuario (lo que sigue a QUIERO) tratándolo 
del mismo modo (usando el mismo código, de hecho) que lo hace el programa TRA- 
DUCTOR cuando cambia las palabras inglesas en palabras españolas; es decir, cambia 
cosas como USTED por YO y ES por SOY (de modo que YO SOY se convierte en US- 
TED ES). Va imprimiendo cada palabra a medida que la procesa, dejando la palabra de 
la entrada del usuario igual, si no hay nada que necesite ser cambiado en la sección de 


conjugación y declinación. 
|] 
QUIERO SALUDAR A SU PADRE | 
A, 


La frase original... 
... Se transforma en... 
POR QUE QUIERE SALUDAR A MI FADRE 


Esto es ““todo”” lo que hace el programa, pero el lector comprobará enseguida por sí 
mismo que el efecto que crea es notable. 

Si no consigue encontrar una frase clave que pueda combinar con una parte de la 
entrada del usuario, el DOCTOR buscará una palabra clave situada en cualquier posi- - 
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ción de la entrada de éste (en vez de hacerlo sólo al inicio, que es donde busca las frases). 
Entre las palabras clave se incluyen ORDENADOR y AMIGOS, que producen resulta- 
dos como estos: 


Po) POR QUE TOCA AHORA EL TEMA DE LOS AMIGOS? 
ad POR FAVOR HABLEME MAS SOBRE SUS AMISTADES... 
SR 

7 QUE ASPECTOS DE LOS ORDENADORES LE INTERESAN MAS? 
lu) LO PIENSA SOBRE MI EN PARTICULAR? 


La estructura del programa 


El programa empieza, como el resto de los que componen este libro, con una llamada 
a una rutina de inicialización (la que empieza en la línea 1140). Tras esto, el programa 
imprime una línea en blanco y después una línea de puntos que separa cada par de pre- 
guntas y respuestas, seguida de otra línea en blanco. 


10 REM DOCTOR 
20 GOSUB 1140: REM INICIALIZACION 
3O PRINTS PRINT "===> 


So "3 PRINT 
40 PRINT ">"3 1 INPUT X$ 
50 IF X$ = "" THEN PRINT "FIN DEL PROGRAMA" 
60 PRINT 


70 1F X$ = 7% THEN PRINT "POR FAVOR...NO SE REPI 
TA": GOTO 30 

80 72$ = X$ 

90 IF LEFT$(X$,5) = "ADIOS" THEN PRINT "ADIOS, 
ESFERO VERLE DE NUEVO": END 


La línea 40 imprime el signo recordatorio **>”” y después acepta la entrada. Si la en- 
trada es una cadena alfanumérica vacía (es decir, el usuario ha pulsado RETURN, en 
vez de introducir una frase), el programa termina. 

La línea 60 imprime una línea en blanco y la línea 70 compara esta entrada (X$) con 
la anterior (Z$) y, si ve que son iguales, dice POR FAVOR... NO SE REPITA, tras lo 
cual vuelve a la línea 30 para recibir una nueva entrada. La línea 80 fija la nueva entrada 
igual a Z$, para comprobarla posteriormente. Si las primeras cinco letras de la entra- 
da componen la palabra ADIOS, el ordenador responde con ADIOS, ESPERO QUE 
VOLVAMOS A VERNOS. 
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Habiendo sobrevivido a esta serie de obstáculos, empieza a trabajar en serio: 


7 


|. O) 1 100 REM ** BUSQUEDA DE FRASES CLAVE AL PRINCIPIO RA 

i DE LA INTRODUCCION ex 

i 110L =0 : 

Ay y 120 Le Lo 1 IS 
Li 130 LN = LENC(CS$(L)) y MU 


, 140 IF LEFT$(X$, LN) = C$(L) THEN 360: REM SE HA : 
ENCONTRADO LA FRASE CLAVE o 
IF L<K THEN 120 O) 


j . 
a 


El programa examina, utilizando para ello los elementos de la matriz C$, las prime- 
ras partes de la entrada, buscando una pareja. Si encuentra una, la acción se mueve a la 
línea 360, en donde se lleva a cabo la tarea de emparejar la frase de la entrada con el res- 
to de la entrada del usuario: 


A a Ec ci 
| 360 REM SE HA ENCONTRADO UNA FRASE CLAVE AL PRIN Ó 
CIPIO DE LA INTRODUCCION 

370 T = INT(RND(1) * 3) + 1 
| , 380 IF T = 1 THEN G$ = D$(L) C 
| ¿ 390 1F T = 2 THEN G$ = E$(L) ) 


400 IF T 3 THEN G$ F$(L) 


410 REM %+%* SE VERIFICA SI LA FRASE ACABA EN UN AS 
LOCO) y TERISCO. DE SER ASI HAY QUE ANADIRLA ALGO 
| MAS *x* 


/ 
A 


| 420 BANDERA = 0 
430 IF RIGHTS(G$, 1) = "*" THEN BANDERA = 1: G$ = 
1 LEFT$(G$, (LEN(G$) - 1)) ¡y O 
| 440 PRINT G$3 " "; ! 
| 450 IF BANDERA = O THEN 30: REM NO HAY QUE ANADIR |! 
54 460 REM ** AHORA SE UTILIZA LA FRASE INTRODUCIDA o 
| * / 
CA7O XS = "o" + MIDS(XS, LN + 2, LEN(XS)) + 0" ba 
O ABO REM 0 6 6 MMMM ED, 


490 REM ** CAMEIOS DE CONJUGACION ** 

500 REM ** TAMBIEN SE BUSCA *MI* PARA LA CLAVE ! 
ñ "MIBANDERA” (K$) ** 
GA TO 


LN = LEN(X*) ' 
 520M=0 E 
| 530 M=M+1 ' 

O) 540 IF M= LN THEN 20 O 


/ 550 IF MID$(X$, M, 1) = " " THEN 570 
; 560 GOTO 5:30 


570 X =M+ 1 a 
0 di 


je NADA E | 


| O: 580 Y = 

| 590 Y = Y +1 
| 600 IF MID$(XS, (X + Y), 1) = " " THEN Q0$ = MIDS : 
l 


(X$, Xy Y): GOTO 630 o: 


610 IF X + Y > 250 THEN 530 o 
6£20 GOTO 590 


630 MN = O 
, 640 MN = MN + 1 pe 
/ 630 IF ($ = "MI" AND K$ = "" THEN K$ = MID$(X$, X Dl 


+ 3, LEN(X$) - 4): K$ = LEFTS(K$, LEN(K$) — 1 
) 
660 IF 0$ = AS(MN) THEN PRINT B$(MN)5 " "3: GOTO 
530 
670 IF MN < KK THEN 640 
680 PRINT Q%; " "; po 
690 GOTO 530 Es 


La sección comprendida entre las líneas 370 y 400 escoge uno de los tres inicios de 
respuesta entre las posibilidades D$(n), E$(n) y F$(n). La línea 420 pone a cero un señali- 
zador (llamado BANDERA) y después utiliza la línea 430 para verificar que la frase es- 
cogida acaba con un asterisco (con esto recordamos que se trata sólo de una respuesta 
parcial que necesita más material de la entrada del usuario). 

Si descubre que tiene un asterisco al final, la bandera se pone a uno y la parte final de 
la línea 430 lo quita. 

La línea 440 imprime la frase escogida. Si BANDERA sigue siendo igual a cero (lí- 
nea 450), el programa vuelve a la línea 30 para recibir la siguiente entrada. Si no, el 
DOCTOR ha de examinar el resto de la entrada del usuario, haciendo los cambios nece- 
sarios en la conjugación (y utilizando, como ya he dicho antes, el mismo código que el 
empleado en TRADUCTOR). 

Asimismo, como lo indica la sentencia REM en la línea 500, el programa busca la pa- 
labra MI para disparar K$, el “mibandera””. Si encuestra la palabra MI en la entrada 
(como en la frase MI PROFESOR CHIFLADO) y todavía no se le ha asignado nada al 
““mibandera”” (K$), tomará el resto de la entrada del usuario a partir de la palabra MI y 
la asignará a K$, de modo que —en este caso, por ejemplo— se fijaría a PROFESOR 
CHIFLADO. Así, si más adelante DOCTOR no consiguiera encontrar una clave en la 
entrada del usuario, podría usar K$ con otras frases (como AL PRINCIPIO ME 
HABLO DE SU PROFESOR CHIFLADO. CUENTEME ALGO MAS) para mantener 
la conversación. El efecto que esta trampita produce en los usuarios del programa es 
extraordinario. 

Si no ha encontrado ninguna frase clave, el ordenador busca una palabra clave, utili- 
zando esta sección del código: 


160 REM ** EL PROGRAMA LLEGA AQUI EN EL CASO DE 
QUE NO SE HAYA ENCONTRADO UNA FRASE CLAVE 
se AL FPRINCIFIO DE X$ x*+* 
(0) 1 170 REM ** AHORA SE BUSCAN PALABRAS CLAVE DENTRO PR 
DE TODA LA FRASE INTRODUCIDA +*x* | 


| 180 Xx$ = "o" "+4 Xx$ +4 "o" ¡ ¡ 
¿ 190 M = LENC(X+%) Es A 
? ET 200 Le Er 
¡ 210 L=L +41 ¿ 


¡ 220 IF L =M- 1 THEN 800: REM NO SE HA ENCONTRA 
| O! DO UNA PALABRA CLAVE 
| 230 IF MID$(X$, L, 1) = " " THEN 250 
240 GOTO 210 
1250 X=L +1 
O ¡260Y=0 
270 Y = Y + 1 
280 IF MID$(X$, (X + Y), 1) = " " THEN 0% = MIDS$( 
X$, X, Y): GOTO 300 
290 GOTO 270 
300 N =0 
ION =N+ 1 


O 320 IF 0$ = C$(N) THEN 710: REM SE HA ENCONTRADO 
UNA PALABRA CLAVE 
330 IF N < K THEN 310 
O 340 GOTO 210 


La utilización del ““mibandera”” (señalizador) 


Si su búsqueda resulta infructuosa, el ordenador tendrá que recurrir de nuevo al ““mi- 
bandera” (si hay uno) o a una frase aleatoria (si la bandera es una cadena sin asignar): 


, E E O ES: OEI 
(0) ( 800 REM RESPUESTAS ALEATORIAS/NO CLAVES O 
CO B10 IF K$ <> "" THEN 1010: REM "MIBANDERA” NO 

ESTA VACIA, ASI QUE SE VA ALLI 
y ' 820 T= INT(RND(1) * 8) + 1 A 
U 830 ON T GOSUB 850, 870, 890, 910, 930, 950, 970, y E 
; 990 
, 840 GOTO 30 
O) | 850 PRINT "QUE LE SUGIERE A USTED?" : O 
C 860 RETURN 
¡870 PRINT "NO ESTOY SEGURO DE ENTENDER ESO POR 
COMPLETO" : 
O) ' 880 RETURN CO 
7 890 PRINT "NO SEA TAN ESCUETO, POR FAVOR ACLARELO a E 
UN POCO MAS" 
1. 900 RETURN 
O + 910 FRINT "ESO ES MUY INTERESANTE" co 
' 920 RETURN 
930 FRINT "BIEN, BIEN...POR FAVOR CONTINUE..." 
O) | 940 RETURN a 
) 950 PRINT "POR QUE?" us, 
960 RETURN 
970 PRINT "Y ENTONCES?" 

O ' 980 RETURN O 
“990 PRINT "YA VED...POR FAVOR SIGA HABLANDO MAS a 
SOBRE ELLO" 

1000 RETURN 
O ¡"1010 REM ** UTILIZACION DE *"MIBANDERA” +. LO 


1020 T = INT(RND(1) * 8) + 1 
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de 


1090 


pl 1100 


E ee CD ENTO 
l O) 1120 


IF T= 1 THEN PRINT "HABLEME MAS SOBRE SU "; 
k$ 

IF T= 2 THEN PRINT "AL PRINCIPIO ME HABLO DE 
SU "3 K$:2 PRINT "CUENTEME ALGO MAS" 

IF T = 3 THEN PRINT "TIENE ALGO QUE VER": 
PRINT "CON SU"5 K$3 "?"LLIST 1050 

IF T= 4 THEN FRINT "EXISTE ALGUNA CONEXION 
CON": PRINT "SU "3 k85 "9" 

IF T = 5 THEN PRINT "FOR QUE NO RETROCEDEMOS 
UN POCO": PRINT "Y HABLAMOS MAS DE SU "3 K$; 
" ”? ” 

IF T = 6 THEN PRINT "LE SUGIERE QUE EXISTE AL 
GUNA CONEXION": PRINT "ENTRE ESO Y SU "3 K$; 
non 

IF T = 7 THEN PRINT "FPREFERIRIA HABLAR SOBRE 
su ”" ; K$ ; " 2 " 

IF T = 8 THEN PRINT "CREO QUE EL PREOCUPARSE 
SOBRE SU "5 K$: PRINT "NO LE CONDUCE A NADA" 
IF ORND(1) > .7 THEN k$ = "" 

GOTO 30 


La línea 810 comprueba a qué se le ha asignado la cadena variable K$. Si descubre 
que K$ no está vacía, la acción pasa a la sección comprendida entre las líneas 1020 y 
1110 y se imprime una de las ocho respuestas que puede usar el ““mibandera”” (tales co- 
mo HABLEME MAS SOBRE o POR QUE NO RETROCEDEMOS UN POCO Y 
HABLAMOS UN POCO MAS DE SU...). 

Al final de esta sección (línea 1110), K$ se vuelve a fijar a la cadena vacía en un 30 
por 100 de las veces, de modo que pueda volver a fijarse a otra cosa diferente, si se vuel- 
ve a encontrar otro MÍ en una entrada posterior. 

Si K$ no tiene nada asignado, el DOCTOR escoge entonces una de las ocho respues- 
tas aleatorias (comprendidas en las líneas 850 a 1000). Estas están ideadas con el fin de 
que la conversación no se interrumpa. 

Ahora que ya sabemos cómo funciona, ha llegado el momento de abrir nuestra con- 
sulta para empezar a ejercer de psiquiatras (para usuarios del ZX Spectrum, véase 


Apéndices). 


10 
20 
30 
40 
So 
60 
70 


80 
90 


100 
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REM DOCTOR 
GOSUB 1140: REM INICIALIZACION 
PRINTS PRINTO "===> 


o "5 PRINT 
PRINT ">"3 3 INPUT X$ 

IF X$ = "" THEN PRINT "FIN DEL PROGRAMA" 
PRINT 


IF X$ = 2% THEN PRINT "FOR FAVOR...NO SE REFI 

TA": GOTO 20 

1$ = X$ 

IF LEFTS$(X$,5) = "ADIOS" THEN FRINT "ADIOS, 

ESFERO VERLE DE NUEVO": END 

REM *x* BUSQUEDA DE FRASES CLAVE AL FRINCIFIO 
DE LA INTRODUCCION ** 


L-=0 

L=L +1 

LN = LEN(C$ (L)) 

IF LEFT$(X$, LN) = C$(L) THEN 360: REM SE HA 

ENCONTRADO LA FRASE CLAVE 

IF L<kc THEN 120 

REM ** EL PROGRAMA LLEGA AQUI EN EL CASO DE 
QUE NO SE HAYA ENCONTRADO UNA FRASE CLAVE 
AL PRINCIFIO DE X% xx 

REM *x* AHDRA SE ElUSCAN PALABRAS CLAVE DENTRO 

DE TODA LA FRASE INTRODUCIDA *x* 

Bro""+xs+ "no" 

= LEN(X5$) 

= (0 

=L+1 

IFL=M-ioTHEN 800: REM NO SE HA ENCONTRA 

DO UNA FALABRA CLAVE 


IF MID$(X$, L, 1) = " " THEN 250 

GOTO 210 

X= L +1 

Y=0 

Y =Y+1 

IF MID$(X$, (X.+ Y), 1) = " " THEN Q$ = MID$( 
X$, X, Y): GOTO 300 

GOTO 270 

N=0 

N=N+1 


IF 0$ = C$(N) THEN 710: REM SE HA ENCONTRADO 

UNA FALABRA CLAVE 

IF N< KE THEN 310 

GOTO 210 

REM 066 6 6 RM MI 
HI MI MIR A 

REM SE HA ENCONTRADO UNA FRASE CLAVE AL FRIN 
CIFIO DE LA INTRODUCCION 

T= INT(RND(1) * 3) + 1 


IF T= 1 THEN G$ = D$(L) 
IF TS 2THEN G$ = ES(L) 
IF T= 3 THEN 6% = F$(L) 


REM ** SE VERIFICA SI LA FRASE ACABA EN UN AS 
TERISCO. DE SER ASI HAY QUE ANADIRLA ALGO 
MAS *x* 

BANDERA = O 

IF RIGHT$(G$, 1) = "*" THEN BANDERA = 1: G$ = 

LEFTS$(G$, (LEN(G$) -— 1)) 

PRINT G$; " "5 

IF BANDERA = O THEN 20: REM NO HAY QUE ANADIR 

NADA 

REM ** AHORA SE UTILIZA LA FRASE INTRODUCIDA 
** 

X$ = " " + MID$(X$, LN + 2, LEN(X$)) + "0" 

REM 6 EII MM 

REM *% CAMBIOS DE CONJUGACION *x* 

REM ** TAMBIEN SE BUSCA *MI” FARA LA CLAVE 
"MIBANDERA” (Ks$) ** 

LN = LEN(X$) 

M=0 


de O 
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ESA na 


M=M+ 1 
IF M= LN THEN 30 


IF MID$(X*%$, M, 1) = " " THEN 570 

GOTO 330 

X=M+1 

Y=0 

Y=Y+1 . 

IF MID$(X$, (X + Y), 1) = " " THEN Q0$ = MID$ 


(X$, X, Y): GOTO 670 

IF X + Y > 250 THEN 530 

GOTO 3590 

MN = 0 

MN = MN + 1 

IF 0% = "MI" AND K$ = "" THEN K$ = MID$(X%, X 
+ 7, LEN(X$) — 4): K$ = LEFTS(K$, LEN(KS$) — 1 


IF 0$ = AS(MN) THEN PRINT ES(MN)5 " "32 GOTO 
53 

IF MN < KK THEN 640 

PRINT 063 " "; 

GOTO 530 

REM 0 dd dd MM dd E 0 A dE M6 HD 

REM ENCUENTRA PALABRAS CLAVE 

T = INT(RND(1) * 3) + 2 


0$ = ""”» 

IF T= 1 THEN 0% = D$(N) 

IF T= 2 THEN 0$ = E$(N) 

IF T=3 THEN 0$ = F$(N) 

IF RIGHT$(Q$, 1) <> "*x" THEN PRINT ($: GOTO 


REM ** SE PASA A LA SIGUIENTE SECCION SI LA 
PALABRA CLAVE SE CONSIDERA NO VALIDA ** 

REM Add de dd dE II II IÓ MI II A IE III 

REM RESPUESTAS ALEATORIAS/NO CLAVES 

IF K$ <> "" THEN 1010: REM "MIBANDERA” NO 

ESTA VACIA, ASI QUE SE VA ALLI 

T = INT(RND(1) * 8) + 1 

ON T GOSUB 850, 870, 890, 910, 930, 950, 970, 

990 


GOTO 30 

FRINT "QUE LE SUGIERE A USTED?" 

RETURN 

PRINT "NO ESTOY SEGURO DE ENTENDER ESO FOR 
COMPLETO" 

RETURN 


PRINT "NO SEA TAN ESCUETO, FOR FAVOR ACLARELO 
UN FOCO MAS" 

RETURN 

FRINT "ESO ES MUY INTERESANTE" 

RETURN 

PRINT "RIEN, RIEN...FOR FAVOR CONTINUE..." 

RETURN 

PRINT "POR QUE?" 

RETURN 

PRINT "Y ENTONCES?" 

RETURN 


¡o 


990 


1000 
1010 
1020 
1030 


1040 


1050 


1060 


1070 


1080 


1090 


1100 


1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 


1200 
1210 
1220 
1230 


1240 
1250 
1260 
1270 
1280 
1290 
1700 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 


PRINT "YA VED...FOR FAVOR SIGA HABLANDO MAS 
SOBRE ELLO" 

RETURN ' 

REM ** UTILIZACION DE *MIBANDERA” ** 

T = INT(RND(1) * 8) + 1 

IF T=1OTHEN PRINT "HAELEME MAS SOBRE SU ":; 


IF T= 2 THEN FRINT "AL PRINCIPIO ME HABLO DE 
SU "3 K$: PRINT "CUENTEME ALGO MAS" 

IF T = 3 THEN PRINT "TIENE ALGO QUE VER": 
PRINT "CON SU"; K$; "?"LLIST 1050 

IF T <= 4 THEN PRINT "EXISTE ALGUNA CONEXION 
CON": PRINT "SU "3 ks5 "2" 

IF T = 5 THEN FRINT "POR QUE NO RETROCEDEMOS 
UN POCO": PRINT "Y HABLAMOS MAS DE SU "3 K$; 
no.» 

IF T= 6 THEN PRINT "LE SUGIERE QUE EXISTE AL 
GUNA CONEXION": FRINT "ENTRE ESO Y SU "3 K$5 
" ” " 

IF OT = 7 THEN PRINT "PREFERIRIA HABLAR SOBRE 
su ” 5 Ks$ 5 ” e] "”" 

IF T = 8 THEN PRINT "CREO QUE EL PREOCUPARSE 


SOBRE SU "3 Ké:z PRINT "NO LE CONDUCE A NADA" 
IF ORND(1) > .7 THEN k$ = "" 


GOTO 30 

A 

REM INICIALIZACION 

RANDOMIZE 

CLS 

DEFINT A - Z 

DIM A$(16), B$(16): REM CONJUGACIONES 

DIM C$(45), D$(453), ES$S(45), F$(43)2 REM PALA 

BRAS CLAVE Y RESFUESTAS 

Z$ = "": REM PARA FINALIZAR LAS REFETICIONES 

K$ = ""2 REM *MIBANDERA” 

PRINT: FRINT 

PRINT "EL DOCTOR ESTA EN LA CONSULTA. ..POR FA 
VOR ESPERE" 

KK =0 

KK = KK + 1 

READ A$(KK), B$(KK) 

IF B$(KK) = "x*" THEN 1290 

GOTO 1250 

k=0 

K=Kk +1 

READ C$(K), D$(K), ES(K), F$(K) 

IF FS$(K) = "x*" THEN 1340 

GOTO 1300 

CcLs 

PRINT "BIENVENIDO A OTRA SESION" 

PRINT "CON EL DOCTOR..." 

PRINT 

PRINT "HOLA..." 

RETURN 

REM AR 

REM *x* DATOS ** 

REM *x* CONJUGACIONES exe 


O 


O 


O 


1430 


1440 


1450 


1460 
1470 
1480 
1490 


1500 
1510 
1520 
1530 
1540 


"1550 


1560 
1370 
1580 


1590 
1600 


1603 
1610 
1620 
16730 
1640 
1650 
1660 
1670 
1580 
1690 
1700 
1710 
1720 
1730 
1740 
1730 
1760 
1770 
1780 


1790 
1800 
1810 
1820 
1830 
1840 
1850 


1860 
1870 


1880 
1890 
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DATA 
MIS, 
DATA 
SoY, 
DATA 


SOY, ES, ERA, ERA, YO, USTED, MI, SU, 
sus 

“USTED TIENE", "YO TENGO", SU, MI, ES, 
ME, LE 

"USTED ESTA", "YO ESTOY", SUYO, MIO, 


USTED, MI, MI, USTED, *, * 
REM ** PALABRAS CLAVE/FRASES DE RESPUESTA *x* 


DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
TE ” 

DATA 
DATA 


"NECESITO" 
"POR QUE NECESITA*" 
"NO SERIA REALMENTE PROVECHOSO SI USTED+* 


"ESTA SEGURO DE QUE NECESITA*" 

"POR QUE NOx*" 

"FIENSA REALMENTE QUE YO NOx*" 

"QUIZAS FINALMENTE YOx*" 

"REALMENTE QUIERE QUE YO*" 

"FOR QUE NO PUEDO" 

"CREE QUE USTED SERIA CAFAZ DEx*" 

"POR QUE NO PUEDE*" 

"QUIZAS NO LO HAYA INTENTADO LO SUFICIEN 


"ESTA USTED" 
"FOR QUE ESTA INTERESADO EN SABER SI YO 


SOY O NOx*" 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


*,* 

"LO PREFERIRIA SI NO FUERA*" 

"QUIZAS ALGUNAS VECES SUENA QUE SOY*" 
"NO PUEDO" 

"COMO SARE QUE NO PUEDE+*" 

"LO HA INTENTADO?" 

"QUIZAS, AHORA, USTED PUEDA" 

"YO ESTOY" 

"ACUDIO A MI FORQUE ESTA*" 

"CUANTO TIEMFO HA ESTADO+*" 

"CREE QUE ES NORMAL ESTAR+*" 

" SOY ” 

"DISFRUTA SIENDO*" 

"FOR QUE ME DICE QUE ES*" 

"FOR QUE ES USTED*" 

"QUIERO" 

"QUE SIGNIFICARIA FARA USTED SIx*" 
"POR QUE QUIERE+*" 

"QUE SUFONDRIA EN SU VIDA SI USTED CONSI 


GUIERA*" 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


” QUE " 

"FOR QUE PREGUNTA ESO?" 

"QUE SE RESFONDERIA PARA AYUDARSE?" 

"QUE FIENSA USTED?" 

"” COMO ”" 

"COMO ARREGLARIA ESO?" 

"LO MEJOR SERIA QUE SE RESPONDIERA A ESO 


USTED MISMO" 


DATA 
DO?" 
DATA 
DATA 
DATA 


"QUE ES LO QUE REALMENTE ESTA FREGUNTAN 


"QUIEN" 
"SE HACE A MENUDO ESAS FREGUNTAS?" 
"QUE RESPUESTA LE DEJARIA TRANQUILO?" 


O 


1900 
1910 
1920 
1930 
1940 


1950 
1960 
1970 


1980 


1990 
2000 


2010 


2020 
2030 
2040 
2050 
2060 
2070 
2080 


2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 


2230 


2240 


DATA "QUIEN CREE USTED QUE+*" 

DATA "DONDE" 

DATA "ESA ES UNA PREGUNTA BASTANTE INGENUA" 
DATA "NECESITA REALMENTE SABER DONDE?" 

DATA "QUE SUPONDRIA PARA USTED SI YO LE DIJE 
RA DONDE*" 

DATA "CUANDO" 

DATA "COMO PODRIA SABER CUANDO+*" 

DATA "NO ESTAMOS AQUI PARA DISCUTIR SOBRE EL 
TIEMPO" 

DATA "LAS COSAS SUELEN OCURRIR CASI SIEMPRE 
EN EL MOMENTO OPORTUNO"LLIST 1980 

DATA "FOR QUE" 

DATA "FOR QUE NO ME DICE LA VERDADERA RAZON 
POR LA QUEx*" 

DATA "QUE ES LO QUE HA DICHO QUE ME AYUDARIA 
A DECIRLE POR QUE*" 

DATA "NECESITA REALMENTE SABER POR QUE*" 
DATA "PORQUE" 

DATA "ES ESA LA VERDADERA RAZON?" 

DATA "QUE OTRAS RAZONES RECUERDA?" 

DATA "QUE MAS FUEDE EXPLICAR ESO?" 

DATA "LO SIENTO" 

DATA "EN QUE OTRAS CIRCUNSTANCIAS SE DISCULPA 
2. 

DATA "HAY MUCHAS OCASIONES EN LAS QUE NO ES 
NECESARIO DISCULPARSE" 

DATA "QUE SENSACION EXPERIMENTA CUANDO TIENE 
QUE DISCULPARSE?" 

DATA "HOLA" 

DATA "HOLA...ME ALEGRO DE VERLE" 

DATA "HOLA. ..ME ALEGRO DE QUE SE HAYA DEJADO 
CAER HOY FOR AQUI" 

DATA "COMO ESTA USTED?...TENIA GANAS DE QUE 
CHARLARAMOS DE NUEVO" 

DATA "OIGA!" 

DATA "ME ALEGRO DE VERLE HOY POR AQUI" 

DATA "ME ALEGRO DE QUE HAYA VENIDO. TENEMOS 
MONTONES DE COSAS SOBRE LAS QUE HABLAR" 

DATA "ATIENDAME AHORA. RELAJESE. .. Y HABLEMOS 
UN FOCO SOBRE SU SITUACION" 

DATA "PUEDE SER" 

DATA "PARECE VACILAR UN POCO" 

DATA "FARECE BASTANTE INDECISO" 

DATA "EN QUE OTRAS CIRCUNSTANCIAS SE MUESTRA 
TAN INDECISO?" 

DATA "NO" 

DATA "POR QUE SE MUESTRA TAN NEGATIVO SOBRE 
ESO?" 

DATA "ESTA USTED DICIENDO QUE ESO NO ES SER 
NEGATIVO?" 

DATA "ES USTED BASTANTE IMPULSIVO. QUE LE SU 
GIERE ESD?" 

DATA "SIEMPRE" 

DATA "POR FAVOR, DEME UN EJEMPLO CONCRETO" 
DATA "NO LE PARECE QUE *SIEMPRE” ES UN POCO 
EXAGERADO?" 
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2300 


2310 


290 


2410 


150 


DATA "CUANDO?" 

DATA "CREDO" 

DATA "DUDA*" 

DATA "FIENSA REALMENTE ESOS" 

DATA "FERO NO ESTA SEGLURO*" 

DATA "AMIGO" 

DATA "FOR QUE TOCA AHORA EL TEMA DE LOS AMI 
COS?" 

DATA "CUAL ES SU MEJOR RECUERDO DE LUN AMIGOS?" 
DATA "FOR FAVOR HABLEME MAS SOBRE SUS AMISTA 
DES...” 

DATA "AMIGOS" 

DATA "EN QUE MODO LE AFECTAN LAS REACCIONES 
DE SUS AMIGOS?" 

DATA "QUE LE HIZO COMENZAR A HABLAR DE LOS 
AMIGOS, FRECISAMENTE AHORA?" 

DATA "DE QUE MODO LE ENGANAN SUS AMIGOS?" 
DATA "ST" 

DATA "QUE TIFO DE MENTIRAS LE MOLESTAN?" 
DATA "ES USTED EASTANTE FOSITIVO" 

DATA "FARECE MUY SEGURO DE ELLO" 

DATA "ORDENADOR" 

DATA "QUE ES LO QUE SIENTE SENTADO AHI Y HA 
ELAANDOME. COMO A UNA FERSONA?" 

DATA "LO FIENSA SOBRE MI EN FARTICULARO" 
DATA "QUE ASFECTOS DE LOS ORDENADORES LE INTE 
RESAN MAS?" 

DATA "ESTA" 

DATA "FIENSA QUE ESTAR*" 

DATA "EN QUE CIRCUNSTANCIAS ESTARTIA*" 

DATA "EIEN FODRIA SER QUE" 

DATA "ES" 

DATA "QUE GRADO DE CERTEZA DEFOSITARIA EN 
ELLO SIENDO*" 

DATA "ESTA USTED SEGURO DE QUE ESx" 

DATA "QUE SENSACIONES EXFERIMENTARIA SI LE DI 
JERÁA QUE, FROBABLEMENTE NO ESx*" 

DATA "FUEDE" 

DATA "QUE LE HACE FENSAR QUE NO FUEDOx*"” 
DATA "NO FIENSA QUE FUEDO*" 

DATA "QUIZAS LE GUSTARIA SER CAFAZ DEX*" 
DATA "FUEDO" 

DATA "TAL VEZ ONO QUIERA*" 

DATA "LE GUSTARIA SER CAPAZ DEx*" 

DATA "LO DUDO" 


2 DATA "SOY" 


DATA "FOR QUE FIENSA QUE S0OYx*" 
DATA "LE COMPLACE CREER QUE SOYx*" 
DATA "TAL VEZ LE GUSTARIA SER*" 
DATA "ESTA" 

DATA "FOR QUE FIENSA QUE ESTOYx*" 
DATA "LE COMFLACE CREER QUE ESTOYx*" 
DATA "FOR QUE DICE QUE ESTOYx*" 
DATA "YO NO" 

DATA "REALMENTE NOx*" 

DATA "POR QUE NOx*" ; 

DATA "LE GUSTARIA SER CAPAZ DEx*" 


pá AAA«<«MMNS— 


2790 
2800 
2810 
2820 


2830 
2840 


2850 


2860 


2870 
2880 
2890 
2900 
2910 
2920 
2930 


2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 


3050 
3060 


3070 


DATA "SIENTO" 

DATA "HABLEME MAS SOBRE ESOS SENTIMIENTOS" 
DATA "SIENTE A MENUDOx*" 

DATA "DISFRUTA SINTIENDOSE+*" 

DATA "SIENTO" 

DATA "VAMOS A EXAMINAR ESA AFIRMACION MAS DE 
TENIDAMENTE"” 

DATA "SE SIENTE NORMALMENTE DE ESE MODO?" 
DATA "QUE EMOCIONES LE DESPFIERTAN ESOS SENTI 
MIENTOS?" 

DATA "TENGO" 

DATA "FOR QUE ME DICE QUE TIENE*" 

DATA "PARA MI ESTA CLARO QUE TIENE*" 

DATA "COMO PODRIA AYUDARLE CON+*" 

DATA "PODRIA" 

DATA "PODRIA EXPLICARME POR QUE SERIA*" 
DATA "A QUIEN MAS LE HA DICHO QUE USTED PO 
DRIA*" 

DATA "QUE SEGURIDAD TIENE DE QUE PODRIA" 
DATA "HAY" 

DATA "POR SUPUESTO QUE HAY+*" 

DATA "ES COMO SI HUBIERA*" 

DATA "LE GUSTARIA QUE HUBIERAx*"” 

DATA "mI" 

DATA "su" 

DATA "YA VEO, SU*" 

DATA "QUE SIGNIFICA PARA USTED EL QUE SU*" 
DATA "USTED" 

DATA "ESTA SESION ES PARA AYUDARLE...NO PARA 
QUE ANDEMOS DISCUTIENDO"” 

DATA "QUE LE IMPULSO A DECIR ESO SOBRE MI?" 
DATA "RECUERDE QUE TOMO NOTA DE TODO LO QUE 
ESTA DICIENDO, PARA FODER ARREGLAR SU SITUA 
CION" 

DATA *, *, *, * 
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9 
Traducción 
por máquinas 


Cuando pensamos en las posibilidades que surgen del hecho de que las máquinas 
sean capaces de comprender y procesar en una lengua natural, no parece una extrava- 
gancia el imaginar que éstas mismas podrían resultarnos una gran ayuda a la hora de tra- 
ducir de una lengua natural a otra. Esta esperanza no es algo nuevo entre nosotros, ya 
que la investigación en este campo se inició por los años cincuenta y desde entonces se 
han hecho grandes progresos. 

Son ahora más de 20 los sistemas de traducción mediante máquinas que funcionan 
por el mundo. Pero, contrariamente a la opinión popular, estos sistemas no funcionan 
sobre una base.del tipo INTRODUZCA EL DOCUMENTO EN INGLES POR ESTA 
RANURA Y RECOJA LA VERSION EN ESPAÑOL POR ESTA OTRA. La traduc- 
ción mediante máquinas es mucho más sutil y complicada. En realidad, hay varios sub- 
campos dentro del dominio general de la traducción con ordenadores. 


Su uso 


Aunque en los primeros momentos del desarrollo de los sistemas de traducción se 
aceptó la idea (posiblemente sin recapacitar sobre ello todo lo necesario) de que los tra- 
ductores humanos acabarían siendo innecesarios, los investigadores confirman ahora 
que, por el momento (y en un futuro inmediato), el papel de los traductores humanos si- 
gue siendo vital. Los especialistas de este campo de investigación se refieren últimamente 
al concepto de “*pre-traducción mediante máquinas”? considerando los documentos tra- 
ducidos por los ordenadores como simples borradores sobre los que trabajar. 

Hay varios modos diferentes de concebir la traducción mediante ordenadores, todos 
ellos en uso actualmente. Entre éstos podemos incluir los sistemas construidos con la 
idea de traducir, ya sea documentos escritos en una versión reducida o limitada de una 
lengua natural, ya sea textos que antes de ser introducidos en la máquina han pasado 
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por un proceso de elaboración, de modo que la máquina pueda comprenderlos y mane- 
jarlos con más facilidad. Xerox tiene un sistema de este tipo, llamado SYSTRAN. Ob- 
servaremos, cuando llegue el momento, algunas de las salidas producidas por este siste- 
ma (en traducciones de documentos para la CEE). 

Otra manera de concebir la traducción con máquinas es aquella en la que el usuario 
puede modificar el sistema de acuerdo con sus propias necesidades, proporcionándole un 
vocabulario que se adecue a la especialidad sobre la que vaya a traducir el ordenador. 
Tal sistema, llamado CULT, se utiliza actualmente en Hong Kong, donde traduce revis- 
tas matemáticas chinas. La impresión de la máquina se encuaderna tal cual (sin correc- 
ción posterior) y se vende en todo el mundo. 

Cuando tú y yo, lector, como legos en la materia, pensamos en la traducción median- 
te ordenadores, lo más probable es que nos imaginemos unas máquinas perfectas en las 
que uno introduce una entrada en inglés y obtiene una salida en español. Y éste es, en 
realidad, el objetivo final de todos aquellos que están investigando en este campo, aun- 
que por el momento están todavía muy lejos de alcanzarlo. No obstante, el sistema SYS- 
TRAN —que, como acabamos de mencionar, trabaja ya sea con documentos escritos en 
““sub-inglés””, ya sea con documentos que han sido previamente preparados para este 
fin— puede usarse a modo de freelance, abordando cualquier documento que se le intro- 
duzca. Los resultados obtenidos varían de un documento a otro. 

Muchos documentos pasan por una fase de preparación antes de ser introducidos en 
la máquina para que ésta los traduzca. Con este proceso se intenta suprimir las poten- 
ciales ambigiiedades y otros aspectos del texto que pudieran confundir a la máquina. 
Muchos de los documentos traducidos por la máquina precisan una elaboración posterior 
(la mayoría, de hecho). En esta fase se comprueba si hay errores y se corrige la sintaxis. 

Algunos documentos no tienen que pasar por esta fase de corrección posterior. En 
ciertos casos, el borrador que sale directamente de la máquina puede ser suficiente. 

La traducción mediante máquinas puede llevarse también a cabo con la ayuda de un 
traductor humano que interviene mientras se está llevando a cabo la traducción. 

Como puede verse, el papel del humano sigue siendo vital en el proceso de traduc- 
ción. Y no hay nada que nos indique que esto vaya a cambiar en un futuro próximo. Las 
máquinas pueden hacer borradores de las traducciones, pero la corrección y la redacción 
final por parte del humano sigue siendo necesaria. 

Examinemos un ejemplo genuino de una traducción realizada por ordenadores. Se 
trata de un documento de la CEE traducido del francés al inglés por el sistema SYSTRAN 
en 1981. 

Este es el inicio del documento en francés: 


Application de la micrologique au 
controle des operations de production 


But de la recherche: 


Perfectionner les appareillages existants 
de sorte que les preposes soient 
debarasses des taches dans lesquelles 
leur jugement n*intervient pas. 


Application au central de telesurveillance 
d*engins sur pneus 


La máquina respondió con esta traducción: 


Application of micrological to the 
control of the production operations 


Aim of the research: 
To improve existing equipments so that 


the officials debarasses tasks in which 
their judgement does not intervene 


Application to the exchange of 
telesurveillance of equipment on tyres 


Aunque no es del todo exacta, deja ver una gran parte del significado. El debarasses 
de la traducción inglesa se debe, de hecho, a una falta en el francés del original (debería 
decir debarrasses, en cuyo caso, presumiblemente, la máquina hubiera comprendido). 

Tras haber sido corregido y redactado por un traductor humano, el documento 
quedó con esta forma: 


Application of micrology to the 
monitoring of production operations 


Aim of the research: 
To perfect existing apparatus so that 
staff can be relieved of tasks where no 


judgement is required. 


Application to the remote monitoring 
station for trackless vehicles. 


Para mí es fascinante seguir el modo en que se ha traducido el documento. Salvo la 
última línea, la versión definitiva del texto inglés no es muy diferente de la salida original 


producida por SYSTRAN. 
No todo el documento se tradujo igual de bien. El traductor-corrector humano hubo 


de corregir enormemente el resto del texto, reduciéndolo a la sombra de lo que fue. 
Este es el que imprimió la máquina: 


It publishes station and day reports 
indicating the duration and the 
importance relative of the periods 
devoted by each instrument supervised to 
the various possible activities: 
evacuation of the products, transport of 
equipment, maintenance, station service 
««« as well as the number of evacuated 
coal cups. 


Es el tipo de texto que revela, tal como es, la naturaleza de la traducción mediante 
máquinas, con frases como the importance relative of the periods, que muestran clara- 
mente el origen francés del texto. 

Tras la corrección y redacción final, el texto quedó así: 


It publishes shift and day reports 
indicating the duration and the relative 
portion of time spent by each vehicle 
recorded on the various possible tasks: 
coal clearance, materials transport, 
maintenance, refuelling points...as 


y á well as the number of coal buckets 
! ! carried. 
aga] 


Finalmente, antes de pasar a crear nuestro propio programa de traducción, es intere- 
sante observar que la inmensa mayoría de los documentos traducidos hoy en día median- 
te máquinas son textos no literarios. La traducción de obras de literatura constituye un 
campo totalmente diferente y, en lo que se refiere a la traducción mediante máquinas, 
está todavía en pañales. 


“Spanglish?” 


Este programa, en el que se utiliza un vocabulario ideado por Jeremy Ruston y que 
está basado en una idea suya, acepta una entrada en español y produce una extraña mez- 
cla políglota de inglés y español, en las que las palabras más fáciles y obvias están tradu- 
cidas a español y las más difíciles dejadas en inglés. 

El programa que ofrecemos aquí no intenta ser un programa serio. No obstante, sí 
que indica algunos de los problemas inherentes a la traducción mediante máquinas. To- 
mado de un modo más serio, con un vocabulario mucho más extenso, podría usarse para 
producir el borrador de un texto traducido del español al inglés (o a la inversa, cambian- 
do sólo dos variables) que posteriormente tendría que ser extensamente corregido y re- 
dactado. Si el programa se usara en un campo con un vocabulario especializado, podría 
prestar un servicio relativamente bueno, aunque no sería capaz de hacer ningún análisis 
que garantizara (como la exigencia del género en español) que todas las partes de la frase 
son correctas. 

Posiblemente habrá quien piense, al leer algunas de las salidas del programa, que soy 
muy poco realista cuando afirmo que éste, ampliándole el vocabulario, podría servir 
para fines más serios. Sin embargo, si uno se para a pensar sobre ello, se dará cuenta de 
que en su forma presente apenas se saca partido a todo el potencial que ofrece el pro- 
grama. 

Aquí tenemos algunas salidas de TRADUCTOR: 


ESCRIBE LO QUE QUIERAS TRADUCIR? Hola Carlos buenos dias 
-=->HELLO CARLOS GOOD MORNING 


ESCRIBE LO QUE QUIERAS TRADUCIR? Ellos tienen un perro 
-—+THEY HAVE A DOG 


ESCRIBE LO QUE QUIERAS TRADUCIR? Maria tiene cigarrillos 
-->MARIA HAS CIGARRETES 


ESCRIBE LO QUE QUIERAS TRADUCIR? El filete tiene mostaza 
=->THE STEAK HAS MUSTARD 


ESCRIBE LO QUE QUIERAS TRADUCIR? Juan ha bebido un guiski AR 


con aguia 
-->JUAN HAS DRUNK A WHISKY ¡ 
WITH WATER mz, 


Como puede verse, he introducido en español aquellas claves que constan en el voca- 
bulario, extremadamente limitado, del programa: 


ESCRIEE LO QUE QUIERAS TRADUCIR? Por favor la chica es mia q 
+ O >PLEASE THE GIRL IS MINE ¿A _) 


ESCRIBE LO QUE QUIERAS TRADUCIR? Mi padre ha estado en el mar 
=->MY FATHER HAS BEEN IN THE SEA 


ESCRIBE LO QUE QUIERAS TRADUCIR? El sol esta caliente y | 

la luna esta fria ¡ ¡ 

TE UN IA 
THE MOON IS COLD 


ESCRIBE LO QUE QUIERAS TRADUCIR? El chico tiene una casa 
con musica 


=->THE BOY HAS A HOUSE 


WITH MUSIC A 
ESCRIBE LO QUE QUIERAS TRADUCIR? Pedro ha comido una hamburguesa 
con patatas fritas y ha bebido 
vino 
-->PETER HAS EATEN A HAMBURGER 
WITH FRITES AND HAS DRUNK a 


WINE 


Estructura del programa 


Es muy fácil de seguir. Empieza (como siempre) con una llamada a una subrutina si- 
tuada al final del programa que inicializa las variables. 


10 REM TRADUCTOR 
20 GOSUB 400: REM INICIALIZACION 


400 REM INICIALIZACION 

410 CLS 

420 DEFINT A - Z 

430 DIM E$(110): REM ALMACENA LAS PALABRAS EN 
ESPANDL 

440 DIM I$(110): REM ALMACENA LAS PALABRAS EN 
INGLES 
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450 CCONTADOR = O 

| (y | 460 CCONTADOR = CCONTADOR + 1 

| 470 READ E$(CCONTADOR), F$(CCONTADOR) 

480 IF F$(CCONTADOR) <> "*" THEN 9105 

490 RETURN 

500 REM ** DATOS *x 

510 DATA YO, 1, TU, YOU, USTED, YOU, ELLA, SHE, 
ELLO, 1T, NOSOTROS, WE, VOSOTROS, YOU, ELLOS, 
THEY 

520 DATA EL, THE, LA, THE, LOS, THE, LAS, THE, 
UN, A, UNA, A 

530 DATA MIO, MINE, TUYO, YOURS, NUESTRO, OUR, 
VUESTRO, YOUR 

540 DATA SOY, AM, ERES, ARE, ES, IS, SOMOS, ARE, 
S0IS, ARE, SON, ARE 

550 DATA TENGO, HAVE, TIENES, HAVE, TIENE, HAS, 
TENEMOS, HAVE, TENEIS, HAVE, TIENEN, HAVE 

560 DATA HE, HAVE, HAS, HAVE, HA, HAS, HEMOS, 
HAVE, HABEIS, HAVE, HAN, HAVE 

570 DATA COMIDO, EATEN, BEBIDO, DRUNK, TENIDO, 
HAD, SIDO, BEEN 

580 DATA Y, AND, E, AND, O, OR, U, OR, SI, YES, 
NO, NO, DE, OF, CON, WITH, EN, IN 

590 DATA BRAZO, ARM, PIERNA, LEG, OJO, EYE, 
CABEZA, HEAD, DERECHA, RIGHT, DERECHO, RIGHT, 
IZQUIERDA, LEFT, IZQUIERDO, LEFT 

600 DATA GINEBRA, GIN, VINO, WINE, GUISKY, WHISKY 
, CERVEZA, BEER, AGUA, WATER 

610 DATA PESCADO, FISH, POLLO, CHICKEN, PATO, 
DUCK, MOSTAZA, MUSTARD, SAL, SALT 

620 DATA PATATAS FRITAS, FRITES, FILETE, STEAK, 
SOPA, SOUP, HAMBURGUESA, HAMBURGER 

630 DATA CALIENTE, HOT, FRIO, COLD, TODO EL MUNDO 
, EVERYBODY 

640 DATA MUSICA, MUSIC, CHICO, BOY, CHICA, GIRL, 
HOMBRE, MAN, MUJER, WOMAN, POR FAVOR, PLEASE 

650 DATA PERRO, DOG, GATO, CAT, PAJARO, BIRD, 
CERDO, PIG, OVEJA, SHEEP 

660 DATA HOLA, HELLO, BUENOS, GOOD, DIAS, MORNING 
, NOCHES, NIGHT, ADIOS, GOODBYE 

670 DATA PUERTA, DOOR, CASA, HOUSE, AMOR, LOVE, 
SOL, SUN, LUNA, MOON, POLICIA, POLICEMAN 

£80 DATA CANCION, SONG, AMIGOS, FRIENDS, MAR, SEA 
, CIGARRILLOS, CIGARETTES 

690 DATA *,* 


En esta subrutina, E$ se utiliza para contener el texto español e I$ para contener su 
equivalente en inglés. El equivalente inglés de ES$(4) (aquí) es I$(4) (here) y así sucesiva- 
mente, lo que hace su uso muy sencillo. 

La variable CONTADOR cuenta el número de palabras introducidas en el sistema. 
Las matrices han sido dimensionadas de modo que puedan contener más palabras de las 
que tienen ahora, a fin de que cada cual pueda añadir las suyas propias. 

Al volver de la rutina de inicialización, el programa acepta la entrada del usuario 
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(línea 30) y después comprueba si hay una cadena vacía (es decir, verifica que el usuario 
no ha pulsado simplemente RETURN sin hacer ninguna entrada). Si encuentra que la 
entrada, A$, está vacía, el programa termina. 


O A A A A o 


30 INPUT "ESCRIBE LO QUE QUIERAS TRADUCIR"; A$: pa 


J 
E REM ACEPTA LA FRASE DEL USUARIO ¡”O 
1040 IF A$ = "" THEN PRINT "FIN DEL PROGRAMA": END 
| 50 GOSUB 290: REM TRANSFORMA EN MAYUSCULAS : 
O | £0 BOSUB 100: REM TRADUCCION ES 
2 1 70 GOTO 3 > 
1 


La línea 50 envía el texto a la subrutina que empieza en la línea 290, la cual pone en 
mayúsculas la entrada el usuario y después la subrutina que empieza en la línea 100 se 
encarga de hacer la traducción propiamente dicha. La línea 70 hace retroceder el progra- 
ma a la 30, en donde acepta más entrada del usuario. 

Esta es la rutina que pone en mayúsculas la entrada del usuario: 


290 REM TRANSFORMA EN MAYUSCULAS 
00 as = "” "”" + AS + ”n “ 

310 BS = "" 

320 L = LEN(AS) 

330 FOR J = 1 TOL 

340 k = ASC(MID$(A$, J, 1)) 

350 IF K > 96 AND K < 124 THEN K =Kk - 32 
360 B$ = B% + CHR$(K) 

370 NEXT J 

380 RETURN 


Sencillamente recorre el texto, elemento por elemento, convirtiendo todos los carac- 
teres cuyo código ASCII esté entre 97 y 123 (es decir, las letras minúsculas) en su equiva- 
lente en mayúsculas (restando 32). Una vez que se ha transformado en mayúsculas toda 
la entrada, empieza la traducción propiamente dicha: 


| 2 100 REM TRADUCCION 

| , 110 PRINT TAB(2)3 "-->"3 

| y 120k = 0 

LOOy 1 130 K=K+1 : 

| 140 IF K = L THEN PRINT:¿ PRINT: RETURN 
| 130 IF MID$(B$, K, 1) = " " THEN 170 
| 1.160 GOTO 130 

| y) ' 170 X K + 1 

! 180 Y 0 

! 1. 190 Y Y +1 
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200 IF MID$(B$, (X + Y), 1) = " " THEN 0$ = 
MID$(B$, X, Y) 2 GOTO 220 
210 GOTO 190 


| 220M=0 

| 230M=M+1 

| 240 IF 0% = E$(M) THEN PRINT 1$(M)35 " "3 12 GOTO 

| 270 | 
| 250 IF M< CCONTADOR THEN 230 | 
| 260 PRINT 083 " "; | 


O 270 GOTO 130 


El programa recorre el texto, buscando el espacio que indica el inicio de una nueva 
palabra (la palabra, por supuesto, empieza después del espacio; esta es la razón por la 
que añadimos —en la línea 30— un espacio al final de cada entrada, de tal modo que el 
programa no pasará por alto la primera y la última palabra de cada frase). Una vez que 
lo encuentra (línea 150) va a la rutina que empieza en la línea 170, la cual continúa bus- 
cando el siguiente espacio, de modo que puede aislar la palabra entera. Acto seguido se 
limita a recorrer el vocabulario (líneas 220 a 270) hasta que encuentra su pareja. 


ESCRIBE LO QUE QUIERAS TRADUCIR? Mi madre tiene una chica fria 
con una pierna y ha bebido una 
cerveza con los amigos en la 
luna 

-—>MY MOTHER HAS A GIRL COLD 
WITH A LEG AND HAS DRUNK A 
BEER WITH THE FRIENDS IN THE 
MOON 


Si encuentra su equivalente, imprime la palabra inglesa en vez de la española y el 
programa vuelve a la línea 130 para continuar la búsqueda. Observemos que una vez que 
ha encontrado un equivalente, el programa vuelve a la línea 130. No pierde tiempo bus- 
cando en el resto del vocabulario. Esto significa que las palabras situadas al principio de 
la lista serán traducidas más deprisa que las situadas al final. Esta es la razón por la que 
hemos puesto al inicio de la lista las palabras más usuales (como EL, MI, SOY). 

Ha llegado el momento de que cada uno experimentemos por nuestra cuenta (para 
usuarios del ZX Spectrum, véase Apéndices): 


10 REM TRADUCTOR O 

20 GOSUB 9000: REM INICIALIZACION 

30 INPUT "ESCRIBE LO QUE QUIERAS TRADUCIR"; A$: 

REM ACEPTA LA FRASE DEL USUARIO 

35 IF A$ = "" THEN PRINT "FIN DEL PROGRAMA"s END  ' () 

40 GOSUB 8000: REM TRANSFORMA EN MAYUSCULAS 

50 GOSUB 1000: REM TRADUCCION 

60 GOTO 30 E 
980 END O 
999 REM TIE IE E A E dE 4 
1000 REM TRADUCCION 
1002 PRINT TAB(2)3 "-->"3 E 
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1 
| 


K o) 

K K +1 

IF K = L THEN PRINT: PRINT: RETURN 
IF MID$(B$, K, 1) = " " THEN 1200 
GOTO 1010 

X= K+1 

Y=0 

Y =Y+1 

IF MID$(B$, (X + Y), 1) = " " THEN Q0$ = 
MID$(B$, X, Y) : GOTO 1240 

GOTO 1220 

M=0 

M=M+id 

IF 0$ = E$(M) THEN PRINT I$(M)5 " "5 : GOTO 
1280 

IF M < CCONTADOR THEN 1250 

PRINT 083 " "5 

GOTO 1010 

NI dd 

REM TRANSFORMA EN MAYUSCULAS 


Ab = " "+A + "o" 
BS = "" 
L = LEN(AS$) 


FOR J = 1 TOL 

K = ASC(MID$(A$, J, 1)) 

IF K > 96 AND K < 124 THEN K = K - 32 

B$ = B$ + CHR$(K) 

NEXT J 

RETURN 

REM 49696136 26 16 96 2 46 26d dE A 

REM INICIALIZACION 

CLS 

DEFINT A - Z 

DIM E$(110): REM ALMACENA LAS PALABRAS EN 
ESFANOL 

DIM I$(110): REM ALMACENA LAS PALABRAS EN 
INGLES 

CCONTADOR = O 

CCONTADOR = CCONTADOR + 1 

READ E$ (CCONTADOR), F$(CCONTADOR) 

IF FS(CCONTADOR) <> "%*" THEN 9105 

RETURN 

REM %** DATOS e 

DATA YO, 1, TU, YOU, USTED, YOU, ELLA, SHE, 
ELLO, IT, NOSOTROS, WE, VOSOTROS, YOU, ELLOS, 
THEY 

DATA EL, THE, LA, THE, LOS, THE, LAS, THE, 
UN, A, UNA, A 

DATA MIO, MINE, TUYO, YOURS, NUESTRO, OUR, 
VUESTRO, YOUR 

DATA SOY, AM, ERES, ARE, ES, IS, SOMOS, ARE, 
S0DIS, ARE, SON, ARE 

DATA TENGO, HAVE, TIENES, HAVE, TIENE, HAS, 
TENEMOS, HAVE, TENEIS, HAVE, TIENEN, HAVE 
DATA HE, HAVE, HAS, HAVE, HA, HAS, HEMOS, 
HAVE, HABEIS, HAVE, HAN, HAVE 
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DATA COMIDO, EATEN, BEBIDO, DRUNK, TENIDO, 
HAD, SIDO, BEEN 

DATA Y, AND, E, AND, O, OR, U, OR, SI, YES, 
NO, NO, DE, OF, CON, WITH, EN, IN 

DATA BRAZO, ARM, PIERNA, LEG, OJO, EYE, 
CABEZA, HEAD, DERECHA, RIGHT, DERECHO, RIGHT, 
IZQUIERDA, LEFT, IZQUIERDO, LEFT 

DATA GINEBRA, GIN, VINO, WINE, GUISKY, WHISKY 
, CERVEZA, BEER, AGUA, WATER 

DATA PESCADO, FISH, POLLO, CHICKEN, PATO, 
DUCK, MOSTAZA, MUSTARD, SAL, SALT 

DATA PATATAS FRITAS, FRITES, FILETE, STEAK, 
SOPA, SOUP, HAMBURGUESA, HAMBURGER 

DATA CALIENTE, HOT, FRIO, COLD, TODO EL MUNDO 
, EVERYBODY 

DATA MUSICA, MUSIC, CHICO, BOY, CHICA, GIRL, 
HOMBRE, MAN, MUJER, WOMAN, POR FAVOR, PLEASE 
DATA FERRO, DOG, GATO, CAT, PAJARO, BIRD, 
CERDO, PIG, OVEJA, SHEEP 

DATA HOLA, HELLO, BUENOS, GOOD, DIAS, MORNING 
, NOCHES, NIGHT, ADIOS, GOODBYE 

DATA PUERTA, DOOR, CASA, HOUSE, AMOR, LOVE, 
SOL, SUN, LUNA, MDON, POLICIA, POLICEMAN 

DATA CANCION, SONG, AMIGOS, FRIENDS, MAR, SEA 
, CIGARRILLOS, CIGARETTES 

DATA PADRE, FATHER, MADRE, MOTHER, HIJO, SON, 
HIJA, DAUGTHER 

DATA +*,+ 


A A A IS 


10 
HANSHAN 


El último programa de esta sección dedicada al manejo de una lengua natural crea 
poemas al azar. Es un programa bastante trivial y que apenas nos ofrece evidencia alguna 
de inteligencia artificial. 

Sin embargo, imagínese el lector leyendo un libro de este tipo hace treinta años. El 
autor hace un comentario intrascendente sobre un mecanismo barato que escribe poesía 
de modo automático y después lo rechaza diciendo que carece de importancia. Hace 
treinta años esto hubiera sido algo extraordinario. Y, en realidad, cuando nos paramos 
a pensar sobre ello, sigue siéndolo. Nos hemos acostumbrado tanto al milagro que ahora 
pasa por nuestro lado y no lo vemos. 

Así pues, con esta idea in mente, nos volvemos hacia HANSHAN para crear unos 
cuantos poemas. El programa recibe su nombre del poeta chino Han-Shan, que vivió du- 
rante los últimos años del siglo VIII y primeros del XI. Tras romper con su vida familiar, 
vagabundeó durante muchos años para terminar haciéndose ermitaño en las montañas 
de las cuales toma a su nombre. 

Todas las frases usadas en el DATA de este programa están sacadas del libro Chinese 
Poems (Arthur Waley, Unwin Papersbacks, Londres, 1982): 


370 REM ** FALABRAS SUELTAS ** 

380 DATA ESCABULLENDOSE, PISANDO, CONTEMPLANDO, 
MARCHITO, ESCULPIDO 

390 DATA ESCONDIDO, CONFINADO, ATORMENTADO, 
DOBLANDO, RETORCIENDO 

400 DATA GOLFEADO, COLGANDO, ENVOLVIENDO, 
TRANSPARENTE, CANSADO 

410 DATA HACIA LA TIERRA, CASCADA, SACRIFICADOR, 
RESBALADIZO, EN PEDAZOS 
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420 REM ** FRASES CORTAS sex 
| 430 DATA EN LA FRIA CORRIENTE se 
¡ 440 DATA AJENO A UN MUNDO DE BELLEZA 1 
| 450 DATA OLAS TRANQUILAS 
| 460 DATA FUERA, DESDE EL ABISMO 
| 470 DATA "SOMBRIO, SOMBRIO" 
| 480 DATA EN LA NEGRURA DE LA OSCURIDAD 
| ; 490 DATA COGI TUS POEMAS 
|. 500 DATA APAGUE LA LAMPARA 
¡CO 510 DATA SE ME CIERRAN LOS OJOS O 
| 520 DATA AQUELLOS QUE ESTAN A LA IZQUIERDA 
| 530 DATA LOS HOMBRES DE CIENCIA 
| 540 DATA LOS HOMBRES DE ACCION 
| 550 DATA ME APRESURO 
560 DATA POR QUE DESPERDICIARIAS 
| 570 DATA CUANDO NOS ENCONTRAREMOS DE NUEVO? 
[| () / 580 DATA DURMIENDO UN POCO NG 
| / 590 DATA Y CON MUCHA PENA 
| £00 DATA POR ESTOS POCOS PASOS 
| 7 610 DATA AHDRA, AL ANOCHECER E: e 
[LJ 620 DATA HICE PROVECHOSAMENTE Q 
RE A ISA NE RI! PA A AER EA: 


1 


El programa selecciona uno de los tres modelos a partir de los cuales crea poemas pa- 
recidos a los haikus (el haiku, por supuesto, es una forma poética japonesa, pero al 
programa le tiene sin cuidado que se pueda producir un antagonismo entre las frases chi- 
nas y la forma en que él las coloca —que es más bien el tipo de estructura del haiku ja- 
ponés): 


PI A pa 
We 3O REM ELECCION DEL PATRON O i 
| 2040 R = INT(RND(1) * 3) + 1 IS: 
| 50 ON R GOSUB 90, 140, 190 | 
' 60 FOR T= 1 TO 1000: NEXT T | 
(O) 1 70 PRINT: PRINT:* PRINT de: 
80 GOTO 40 
90 REM ** PATRON UNO *x 
100 PRINT W$C(INT(RND(1) * 20 + 1))3 "..."5 | 
W$ (INT(RND(1) * 20 + 1)) 
110 PRINT TAB(5)3 "..."5 W$(INT(RND(1) * 20 + 1)) | 
| / 120 PRINT TAB(8)5 Sé(INT(RND(1) * 20 + 1)) 
MES 130 RETURN a 
| ; 140 REM ** PATRON DOS ** IA 
' 150 PRINT S$(INT(RND(1) * 20 + 1)) 
160 PRINT TAB(3)5 S$CINT(RND(1) * 20 + 1))3 "..." o 
() : 170 PRINT TAB(6)5 S$C(INT(RND(1) * 20 + 1)) Ed: 
| 180 RETURN | 
| 190 REM ** PATRON TRES ** | 
Loy + 200 PRINT TAB(3)5 W$(INT(RND(1) * 20 + 1)) E 
22 1 210 PRINT S$C(INT(RND(1) * 20 + 1)) tp 
220 PRINT TAB(3)3 W$C(INT(RND(1) * 20 + 1))5 ", "3 
E: S$ (INT(RND(1) * 20 + 1))3 ", "; 
(E S$ (INT(RND(1)) * 20 + 1) E 
230 RETURN DN: 
4 
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Algunos de los poemas producidos por HANSHAN tienen bastante mérito: 


CUANDO NOS ENCONTRAREMOS DE NUEVO? 
LOS HOMBRES DE ACCION... s 
OLAS TRANQUILAS 


APAGUE LA LAMPARA 
ME APRESURO. . + 
POR ESTOS POCOS PASOS 


COLGANDO. . . CONTEMPLANDO 
» « « DOBLANDO 
DESDE EL ABISMO 


HACIA LA TIERRA... ESCONDIDO 
. » +» ESCULPIDO 
EN LA NEGRURA DE LA OSCURIDAD 


ESCABULLENDOSE 
DESDE EL ABISMO 
CANSADO, COGI TUS POEMAS, EN LA FRIA CORRIENTE 


ME APRESURO 
LOS HOMBRES DE CIENCIA... 
FUERA 


Y CON MUCHA PENA n Y 
Y CON MUCHA PENA... ¡ 


AJENO A UN MUNDO DE BELLEZA O) 


Este es el listado de HANSHAN que le permitirá al lector crear una secuencia de poe- 
mas casi infinita. Cada cual puede modificar las sentencias DATA a su gusto, con lo que 
conseguirá un programa (y una salida) más personal (para usuarios del ZX Spectrum, 
véase Apéndice): 


A e 


10 REM HANSHAN 
20 GOSUB 250: REM INICIALIZACION 


! 
| 
| 3O REM ELECCION DEL PATRON ; | 
40 R = INT(RND(1) * 3) + 1 Ms 

50 ON R GOSUB 90, 140, 190 ES 


70 PRINT: PRINT: PRINT 
80 GOTO 40 

90 REM ** PATRON UNO + 
/ 100 PRINT W$(INT(RND(1) * 20 + 1))3 “"..."3 
? Wé$ (INT(RND(1) * 20 + 1)) 

y; 110 PRINT TAB(5)5 "..."3 W$(INT(RND(1) * 20 + 1)) E 
y 120 PRINT TAB(8)5 S$(INT(RND(1) * 20 + 1)) 3 
/.- 130 RETURN ¡ 
: 140 REM ** PATRON DOS %* 
| 

/ 

| 

1 


/ 60 FOR T = 1 TO 1000: NEXT T 
1] 


150 PRINT S$C(INT(RND(1) * 20 + 1)) E 

160 PRINT TAB(3)5 S$(INT(RND(1) * 20 + 1))5 "..." | 
170 PRINT TAB(6)3 S$(INT(RND(1) * 20 + 1)) | 
180 RETURN | 
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168 


190 
200 
210 
220 


230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 


390 
400 
410 


420 
430 
440 
4530 
460 
470 
480 
490 
$00 
si0 
520 
530 
540 
350 
360 
570 
380 
390 
600 
610 
620 


REM ** PATRON TRES *e* 

PRINT TAB(3)5 W$C(INT(RND(1) * 20 + 1)) 

PRINT S$(INT(RND(1) * 20 + 1)) 

PRINT TAB(3)3 W$(INT(RND(1) * 20 + 1))3 ", "3 
S$ (INT(RND(1) * 20 + 1))3 ", "3 
S$ (INT(RND(1)) * 20 + 1) 

RETURN 

REM TH IE IE E A E Y 

REM INICIALIZACION 

CLS 

RANDOMIZE 

DIM W$(20), S$(Z20) 

FOR J = 1 TO 20 

READ W$(J) 

NEXT J 

FOR J = 1 TO 20 

READ S5$(J) 

NEXT J 

RETURN 

REM *x* DATOS *** 

REM ** PALABRAS SUELTAS ** y Q 

DATA ESCABULLENDOSE, PISANDO, CONTEMPLANDO, 
MARCHITO, ESCULFIDO y 

DATA ESCONDIDO, CONFINADO, ATORMENTADO, ES 
DOBLANDO, RETORCIENDO 2 y 

DATA GOLPEADO, COLGANDO, ENVOLVIENDO, 
TRANSPARENTE, CANSADO 

DATA HACIA LA TIERRA, CASCADA, SACRIFICADOR, 
RESBALADIZO, EN PEDAZOS 

REM *x* FRASES CORTAS *x* 

DATA EN LA FRIA CORRIENTE 0 

DATA AJENO A UN MUNDO DE BELLEZA 0) 

DATA OLAS TRANQUILAS 

DATA FUERA, DESDE EL ABISMO 

DATA "SOMBRIO, SOMBRIO" 

DATA EN LA NEGRURA DE LA OSCURIDAD 

DATA COGI TUS POEMAS 

DATA APAGUE LA LAMPARA 

DATA SE ME CIERRAN LOS OJOS CO 

DATA AQUELLOS QUE ESTAN A LA IZQUIERDA : 

DATA LOS HOMBRES DE CIENCIA 

DATA LOS HOMBRES DE ACCION 

DATA ME APRESURO 

DATA POR QUE DESPERDICIARIAS 

DATA CUANDO NOS ENCONTRAREMOS DE NUEVO? 

DATA DURMIENDO UN POCO 

DATA Y CON MUCHA PENA 

DATA FOR ESTOS POCOS PASOS 

DATA AHORA, AL ANOCHECER 

DATA HICE PROVECHOSAMENTE 


Sección cuarta: LA AYUDA 
11 
Sistemas expertos 


En nuestro mundo, el número de expertos sobre un tema específico es limitado. 
Ya hablemos de un tema o de otro —desde la reparación de automóviles o las excavacio- 
nes de uranio al diagnóstico de las enfermedades humanas, pasando por la clasificación 
de las setas comestibles— el número de expertos de que dispongamos será siempre res- 
tringido. 

Ahora bien, mientras que nadie se lamenta porque no haya en el mundo más exper- 
tos en la clasificación de setas, hay, sin embargo, zonas inmensas de nuestro planeta (en 
la mayoría de éste, en realidad) en las que escasean los médicos. Una de las ideas de los 
sistemas expertos es ““capturar”” en un ordenador la pericia de una persona experta en un 
área determinada del conocimiento, de tal modo que una persona no experta pueda 
aprovechar esa información. 

Los sistemas expertos constituyen el campo de investigación de la inteligencia artifi- 
cial en el que se han dado los avances más significativos. Es, asimismo, en este campo de 
investigación donde se están haciendo ya actualmente las contribuciones más prácticas y 
viables económicamente. Por otro lado, es un campo de la inteligencia artificial en el que 
nadie anda preocupándose con cuestiones relativas a si la máquina piensa o deja de pen- 
sar cuando muestra su capacidad o pericia en un tema determinado. 

En su forma más simple, un sistema experto está formado por una serie de sentencias 
SI/ENTONCES (IF/THEN). Un sistema de diagnóstico podría ser tan simple como: 


SI el paciente tose 
Y recientemente se empapó hasta los huesos 
Y luego estuvo expuesto durante una hora a un viento helado, 
ENTONCES el paciente tiene un resfriado o una pulmonía. 


171 


Nadie hubiera necesitado, desde luego, un sistema experto para hacer semejante diag- 
nóstico (se ha de observar, además, que yo no estoy en absoluto sugeriendo que el diag- 
nóstico que acabo de dar tenga que ser necesariamente correcto). Un sistema experto se 
hace valer cuando se da una de las siguientes condiciones: 


— la persona experta no está presente, pero sí que lo está su pericia o conocimiento del 
tema; 

— ni siquiera la persona experta sabe con un 100 por 100 de certeza la relación causal 
entre las observaciones y los resultados. Esto podría suceder si un investigador médi- 
co fuera consciente de que los pacientes que contraen la enfermedad X suelen ha- 
ber tenido contacto con los alimentos A y B y tienen un grupo sanguíneo C..., aun- 
que no se haya descubierto un modo de relacionar A, B y C —salvo por el hecho 
de que suelen aparecer juntos—. En este caso, un programa experto debidamen- 
te programado podría predecir las posibilidades de que el individuo D contrajera 
la enfermedad, aun cuando no se supiera en qué porcentaje contribuyen los facto- 
res A, B y C. Mediante el estudio de un número suficiente de casos, el sistema ex- 
perto podría no sólo concebir sus propias reglas para predecir si una persona podría 
o no contraer esa enfermedad, sino también explicar su razonamiento al médico 
humano. 


En la sección del libro dedicada al aprendizaje y el razonamiento hablábamos de los 
“circuitos lógicos”? y comentábamos el modo en que éstos tomaban decisiones de acuer- 
do con las reglas del Algebra Booleana. 

Las “matemáticas del razonamiento”? son muy importantes en la construcción de 
sistemas expertos. Sucede a menudo que la persona que está “sacando” la pericia 
de un ser humano con el fin de codificarla en la base de datos de un sistema experto 
(un poco más adelante veremos algunos de los sistemas que actualmente se están uti- 
lizando en todo el mundo) descubre que aquella persona experta en tal o cual tema no 
sabe, de hecho, qué mecanismo emplea para llegar a una conclusión o tomar una de- 
cisión. 

Esto es una revelación tanto para el experto como para la persona que está creando 
la base de datos para el programa. En el libro The Fith Generation Artificial Intelligence 
and Japan's Computer Challenge to the World (Reading, Massachusetts, Feigenbaum, 
Edward A. and McCorduck, Pamela, 1983, pp. 85 y 86) leí la triste historia de un exper- 
to que puso toda su buena voluntad en explicar sus métodos a un “ingeniero del conoci- 
miento”” (que es como se denomina a todos aquellos que se dedican a extraer la pericia 
de otros para, una vez modificada, pasarla a un programa informático). Aquel experto 
estaba muy bien considerado (y pagado) debido a su capacidad en un tema concreto y al 
principio no podía creerse que toda su pericia pudiera reducirse, según le descubrió el in- 
geniero del conocimiento, a unos cuantos cientos de “reglas de trabajo empíricas”. De 
la incredulidad, el experto pasó a la depresión y terminó abandonando su campo de tra- 
bajo. Un hombre destrozado. 

Las máquinas toman decisiones basadas en sus reglas internas. Estas son —como 
vimos en la explicación de los programas de aprendizaje y razonamiento— relativa- 
mente simples. El razonamiento elemental lógico se reduce a unas cuantas reglas bien 
expresadas. 
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Vimos que la máquina podía expresar y resolver silogismos debido a que éstos toma- 
ban la siguiente forma: 


AesC 
Ces B 
Luego, A es B. 


La esperanza de poder reducir el razonamiento a un proceso mecánico no es nada 
nuevo entre nosotros. Ya en 1677, en el prefacio a su libro Las ciencias generales, 
G. Leibniz escribía: 


Si uno pudiera encontrar las características o signos apropiados para 
expresar todos nuestros pensamientos tan clara y exactamente como la arit- 
mética expresa los números o la geometría analítica, las líneas, podríamos 
realizar en todos los campos del conocimiento, tanto en cuanto éstos puedan 
someterse al razonamiento, lo que se hace en el campo de la aritmética y la 
geometría... 

Es más, podríamos convencer al mundo de lo que hemos encontrado o 
concluido, puesto que sería muy fácil verificar el cálculo... si alguien dudara 
de mis resultados, bastaría con que le dijera: “Calculémoslo, señor””, y to- 
mando pluma y papel, enseguida zanjaríamos la cuestión. 


Ahora podemos sustituir la pluma y el papel por sílice y encontrar la solución de 
algunos problemas que, de no ser así, sobrepasarían las capacidades de la mayoría de 
nosotros (como, por ejemplo, la capacidad para predecir, del mismo modo que lo podría 
hacer un sistema experto, la estructura química de un compuesto todavía no desarrolla- 
do) o indicar las soluciones en el caso de ciertos problemas que todavía nadie ha logrado 
resolver. 


Limitaciones 


A no ser que estén específicamente programados para avisar a la persona que está 
operando con ellos, los sistemas expertos pueden resultar bastante estúpidos cuando se 
encuentran con algo que no encaja en el repertorio que tienen preprogramado. Les suce- 
de lo mismo que a esas personas que son muy brillantes en un campo determinado, el 
ajedrez, por ejemplo, pero que después son incapaces de llegar a dominar algo tan senci- 
llo como anudarse correctamente la corbata. El estatus del sabio-idiota es una caracterís- 
tica de muchos sistemas expertos que se basan solamente en la interpretación de reglas 
del tipo IF/THEN, como las que hemos comentado hace un momento. 

Tales sistemas no cuentan con la capacidad de ampliar su base de datos mientras 
están operando y sólo pueden pensar en línea recta procediendo del punto A al B y luego 
del B al C y así sucesivamente. Este tipo de sistema no tiene modo de saber cuándo es 
inapropiado el conocimiento que tan laboriosamente le ha sido programado; no recono- 
cen la excepción a la regla. 

Los sistemas que nosotros desarrollaremos aquí entran en la descripción del sabio- 
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idiota. Pero, a pesar de esta limitación, que, por otro lado, puede aplicarse a la mayoría 
de los sistemas expertos que actualmente funcionan por todo el mundo, el lector encon- 
trará que los sistemas que desarrolle son artefactos fascinantes. El último sistema que ve- 
remos en esta sección tiene la capacidad de aprender. En realidad, sólo con indicarle 
—cuando está tratando de distinguir entre las diferentes cosas que le hemos programa- 
do— si su hipótesis es válida o falsa, terminará aprendiendo por sí solo a distinguir entre 
los diferentes objetos, sin que en ningún momento le hayamos dicho explícitamente 
cómo ha de distinguirlos. 


Estructura química y DENDRAL 


Antes de meternos con nuestros propios programas expertos, echaremos un vistazo a 
algunos de los sistemas que se están usando en este momento y veremos lo que podemos 
sacar de su examen. 

El primer programa que comentaremos, y posiblemente el primer sistema experto de 
verdad que se haya usado en el mundo, se llama DENDRAL. Los trabajos para la reali- 
zación de este sistema —que es capaz de calcular o descubrir hechos relativos a las es- 
tructuras moleculares a partir de unos datos químicos sin elaborar— empezaron en la 
Universidad de Stanford en 1965. Uniendo los conocimientos y experiencia de varias dis- 
ciplinas, los creadores de DENDRAL consiguieron con el tiempo producir un sistema 
que ahora desempeña su función mejor que nadie en el mundo (incluyendo a las perso- 
nas que lo construyeron). DENDRAL se utiliza a lo largo y ancho del mundo. 

Stanford fue también la cuna de MYCIN, un sistema que diagnostica infecciones en 
la sangre y meningitis, y además sugiere el tratamiento que se debe seguir en cada caso. 
MYCIN basa sus conclusiones en los datos físicos que introduce el médico y puede expli- 
car, si se le pide, el camino seguido para llegar a ese diagnóstico. El sistema contiene 
unas 450 reglas. 

La base de datos de MYCIN es tan valiosa que posteriormente se desarrolló otro 
programa —GUIDON— para que acompañara a éste y posibilitara el que el ordenador 
pudiera hacer de profesor, actuando así de puente entre un humano experto (o un equi- 
po de ellos, como en este caso) y otro que está preparándose para serlo. 

Y aquí no acaba el valor de MYCIN. Gran parte del programa consiste en las dife- 
rentes maneras de manipular las reglas que se le han dado y sacar conclusiones a partir 
de ellas. Los mecanismos de manipulación y deducción son, hasta cierto punto, indepen- 
dientes de la base de datos. Esto quiere decir que se puede sacar la información relativa a 
las infecciones de la sangre para introducir otra nueva. Esto ya se ha llevado a cabo y 
ahora el sistema experto PUFF dispensa una asistencia similar a la procurada por 
MYCIÍN, pero en este caso en relación con las enfermedades de pulmón. 

Tan efectivo fue este proceso (en un experimento realizado con 150 pacientes, PUFF 
dio los mismos diagnósticos que los especialistas) que se desarrolló otra versión de 
MYCIN, llamada simplemente EMYCIN (de “Empty””, “Vacio”? MYCIN), en la que se 
pueden introducir otras bases de datos. 

El sistema experto MOLGEN (de MOLecular GENetics, “Genética Molecular””) ayu- 
da a los biólogos que trabajan en el campo del DNA y la ingeniería genética. Su uso está 
muy extendido. 
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Lo más interesante —en términos de examinar las direcciones que está tomando la in- 
vestigación de la inteligencia artificial — es que los sistemas expertos funcionan, de 
hecho, extremadamente bien y desde un punto de vista económico su uso resulta total- 
mente rentable. Esto no sólo garantiza que se están utilizando, sino que además se están 
construyendo sistemas nuevos. La línea de la ““investigación pura””, como es natural, 
también produce resultados, pero éstos suelen aparecer antes, cuando el sistema que se 
está desarrollando tiene una utilización práctica inmediata y los que lo desarrollan dispo- 
nen de medios a su alcance (dólares contantes y sonantes). 

Imaginemos un sistema que nos aconsejara sobre los lugares más adecuados para 
realizar prospecciones petrolíferas. Con un solo pozo que se encontrara, el coste de 
desarrollar el sistema, aun cuando hubiera sido de millones y millones, podría amortizar- 
se relativamente rápido, incluso en cuestión de días. 

Feigenbaum y McCorduck (en su libro The Fifth Generation..., mencionado antes, 
páginas 72 y 73) nos dan un ejemplo gráfico del poder de *““amortización”” de los grandes 
sistemas expertos. Citan el caso de una importante compañía americana que compró 
recientemente un sistema diseñado para diagnosticar fallos en un tipo determinado de 
plantas generadoras de energía eléctrica. Al probar una versión del programa, todavía 
sin completar, utilizando los datos reales que condujeron a que una de las plantas de la 
compañía tuviera que ser cerrada en 1981, se encontró que el sistema dio, en tan sólo 
unos segundos, con la causa del problema que había conducido al cierre. A los expertos 
humanos que trabajaban en la planta les habría llevado días sin fin el llegar a la misma 
conclusión. Entretanto, la planta había estado cerrada cuatro días, lo que le costó a la 
compañía aproximadamente un millón doscientos mil dólares. 

Hay otros muchos sistemas funcionando, o en vías de hacerlo, por el mundo. Entre . 
éstos podemos citar: 


— PROGRAMMERS APPRENTICE: Como su propio nombre indica, se 
trata de un sistema que ayuda en la escritura de programas. 

— EURISKO: Un sistema experto, capaz de aprender a medida que funcio- 
na, que crea circuitos microeléctricos tridimensionales. 

— TAXMAN: Este sistema, que está siendo desarrollado en la Universidad 
Rutgers, examinará las cambiantes normativas fiscales y aconsejará pos- 
teriormente a las compañías sobre cuál es la mejor manera de operar den- 
tro de esas normativas. 

— GENESIS: Este suena de lo más emocionante. Se encuentra ya en el mer- 
cado y permite a los científicos planificar y simular experimentos en el 
campo de la unión de genes. 


Me temo que por el momento no vamos a ponernos a sacar genes, pero seguro que 
encontraremos aplicaciones interesantes para nuestros sistemas expertos (como la dife- 
renciación entre un hombre, un caballo y un gorrión). Echemos ahora un vistazo al pri- 
mero de nuestros sistemas. 
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12 
Pequeño gran esfuerzo 


Nuestro primer sistema experto es GRAN ESFUERZO. Este programa tiene la capa- 
cidad de decir, sin error, las diferencias entre tres seres vivos: un hombre, un caballo y 
un gorrión. Aunque se trata de una situación bastante tonta, puede enseñarnos mucho 
sobre cómo se desarrollan ciertos tipos de sistemas expertos. 

Imaginemos un sistema experto de “diagnóstico médico””. Le llamaremos MEDICO. 
MEDICO y GRAN ESFUERZO son primos hermanos, como se verá enseguida, y el es- 
tudio de este último nos sirve de base para saber cómo funcionan MÉDICO y otros siste- 
mas expertos más extensos. 

Estamos a punto de entrar en la consulta de MEDICO. El sistema nos hace un gran 
número de preguntas a las que nosotros respondemos SI o NO, como sigue: 


ESTA USTED ENFERMO? 
TIENE MAS DE 40 ANOS? 
FUMA? 
SE HA HECHO UN CHEQUEO EN LOS ULTIMOS 12 MESES? 
TIENE PREOCUPACIONES FRECUENTEMENTE? 
SE DESCRIBIRIA A SI MISMO COMO UNA FERSONA NERVIOSA? 


Y así sucesivamente. Tras una serie de estas preguntas MÉDICO se detiene un nano- 
segundo o dos y después imprime en la pantalla el siguiente mensaje: 


GRACIAS. TU ESFERANZA DE VIDA ES DE 79 ANOS, LO QUE 
SUFERA AL 11% DE LA FOBLACION. PARA AUMENTAR SUS 
POSIBILIDADES DE ALCANZAR, O SUFERAR ESTO, LE SUGIERO 
QUE: 

- INTENTE DEJAR DE FUMAR 

- SE HAGA CHEQUEOS MEDICOS REGULARMENTE 

- AUMENTE LAS HORAS SEMANALES DE EJERCICIO 


GRACIAS FOR CONSULTAR AL MEDICO 
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¿Qué es lo que ha hecho MEDICO? ¿Cómo ha convertido nuestras escuetas respues- 
tas SI/NO en una predicción de esperanza de vida? En realidad, estoy convencido de que 
el lector ya ha decidido que éste no es un programa muy complicado y que, por tanto, 
no requerirá un gran nivel de conocimientos. Sin embargo, muestra cómo podría empe- 
zar un verdadero programa de diagnóstico médico, si el sistema experto estuviera ac- 
tuando recíprocamente con un paciente, más que con un médico, como es generalmente 
el caso. 

Encantados con la idea de que vamos a vivir más que el 11 por 100 de la población, 
nos disponemos a conocer a otro experto, el joven GRAN ESFUERZO. Esto es lo que se 
ve en la pantalla: 


QUIERO QUE PIENSES EN UN HOMBRE, UN CABALLO 
O EN UN GORRION 


TIENE DOS PATAS O DOS FIERNAS 
”S” 0 "NN? 8 


PUEDE CAMINAR 
”S8* 0 *N"?25S 


PUEDE VOLAR 
”S” 0 ”"N?2N 


TU PENSASTE EN UN HOMBRE 


PULSE LA TECLA *RETURN” PARA OTRA EJECUCION, O 


CUALQUIER OTRA TECLA Y *RETURN” PARA FINALIZAR 
? 


Por supuesto, GRAN ESFUERZO tiene razón. No era especialmente difícil adivinar 
por nuestras respuestas que estábamos pensando en un hombre. Totalmente impresiona- 
dos con este resultado, vamos y pulsamos la tecla RETURN y volvemos a probar: 


QUIERO QUE FIENSES EN UN HOMBRE, UN CABALLO 
O EN UN GORRION 


TIENE DOS PATAS O DOS PIERNAS 


OS: "5 0 "NN"? 8 
A PUEDE CAMINAR 
isa "s* DN? 8 


PUEDE VOLAR 
”S” D"N?58S 


DR 
Ñ TU PENSASTE EN UN GORRION 


Ahora estamos seguros de que no va a ser capaz de repetirlo y lo intentamos con la 
tercera posibilidad: 
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QUIERO QUE PIENSES EN UN HOMBRE, UN CABALLO Ñ 
O EN UN GORRION 


TIENE DOS PATAS O DOS PIERNAS 
”S” 0 "N?N 


PUEDE CAMINAR PJ 
»5” 0 ”N"? 8 i 
¡2 


PUEDE VOLAR 
”S” OD 'N'?2N 


TU PENSASTE EN UN CABALLO 
a 


Esta vez decidimos dejarlo por imposible. ¿Cómo recoge las respuestas a nuestras 
preguntas de modo que puede determinar que si dijimos que tenía dos piernas y podía 
caminar, pero no podía volar, la criatura en la que estábamos pensando era un hombre? 
¿Cómo registraba MÉDICO nuestras respuestas para podernos decir que viviremos hasta 
los 79 años? 

Es muy simple, al menos en el caso de GRAN ESFUERZO (y MÉDICO funciona de 
modo parecido, sólo que con un poco más de refinamiento). GRAN ESFUERZO contó 
cada vez que respondimos 'S” a una pregunta. Si sólo respondimos una vez con “S?, 
teníamos que estar pensando en un caballo (ya que la pregunta relativa al caminar era la 
única a la que podíamos responder con un “S”, en el caso de que estuviéramos pensando 
en un caballo). Dos respuestas *S”, y en lo que estábamos pensando era en un hombre. 
Tres, y GRAN ESFUERZO, sin ningún esfuerzo, adivinó que pensábamos en un gorrión. 

MEDICO no sólo contaba las respuestas, sino que también anotaba a qué pregun- 
ta se referían. Una respuesta *“S” a la pregunta ¿FUMA? quitaba tres años a nuestra 
esperanza de vida, mientras que una respuesta “S” a la pregunta ¿SE HA HECHO UN 
CHEQUEO EN LOS ULTIMOS DOCE MESES? añadía cinco años de duración a nues- 
tra vida. 


El listado de GRAN ESFUERZO empieza así: 


LO 10 REM GRAN ESFUERZO 

| 20 CLS 

| 30 PRINT "QUIERO QUE PIENSES EN UN HOMBRE, UN 
CABALLO" 

40 PRINT TAB(6); "O EN UN GORRION" 

50 FOR J = 1 TO 2000: NEXT J 

60 PRINT: PRINT 

70 GOSUB 170: REM HACE LAS PREGUNTAS 


Después de fijar la escena, el programa entra en materia intentado determinar en qué 
criatura estamos pensando: 
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170 
180 
190 
200 
210 
220 
230 
240 


310 
320 
330 
3540 
350 
360 


REM REALIZA LAS PREGUNTAS 

CCONTADOR = O 

PRINT "TIENE DOS PATAS O DOS PIERNAS" 
GOSUB 310 

PRINT "PUEDE CAMINAR" 

GOSUB 310 

FRINT "PUEDE VOLAR" 

GOSUB 310 


REM SE PROCESA LA RESPUESTA 

INPUT " "Ss 0 N""3 26 

IF 2% <> "S" AND 2% <> "N" THEN 320 

IF 2% = "S" THEN CCONTADOR = CCONTADOR + 1 
PRINT 

RETURN 


Observaremos que la variable contador se pone a cero al inicio de la ejecución y que 
se va aumentando con uno cada vez que se da una respuesta “S”. Utilizando esta infor- 
mación GRAN ESFUERZO no encuentra dificultad para determinar cuál es la criatura 
en la que estamos pensando: 


250 
260 
270 
280 
290 


PRINT "TU PENSASTE EN UN "; 

IF CCONTADOR 1 THEN PRINT "CABALLO" 
IF CCONTADOR 2 THEN PRINT "HOMBRE" 
IF CCONTADOR 3 THEN PRINT "GORRION" 
RETURN 


Como vemos, es un programa muy sencillo, pero, pese a ello, pone los cimientos 
necesarios para poder construir sistemas expertos. Este es el listado completo (para usua- 
rios del ZX Spectrum, véase Apéndice): 


10 REM GRAN ESFUERZO 
20 CLS 
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PRINT "QUIERO QUE PIENSES EN UN HOMBRE, UN 


CABALLO" 


PRINT TAB(6)35 "O EN UN GORRION" 
FOR J = 1 TO 2000: NEXT J 

PRINT: PRINT 

GOSUB 170: REM HACE LAS PREGUNTAS 


PRINT: PRINT "FULSE LA TECLA *RETURN” PARA 


OTRA EJECUCION, 0” 


110 


120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
3500 
310 
320 
330 
340 
350 
360 


PRINT "CUALQUIER OTRA TECLA Y *RETURN”? PARA 


FINALIZAR" 
INFUT Q$ 
IF 0$ <> "" THEN END 
CLsS 
GOTO 30 


REM dde dd M6 dd A HA dE A 

REM REALIZA LAS PREGUNTAS 

CCONTADOR = O 

PRINT "TIENE DOS PATAS O DOS PIERNAS" 
GOSUB 310 

PRINT "PUEDE CAMINAR" 

GOSUB 310 

PRINT "PUEDE VOLAR" 

GOSUB 310 

PRINT "TU PENSASTE EN UN "s 

IF CCONTADOR = 1 THEN PRINT "CABALLO" 
IF CCONTADOR = 2 THEN PRINT "HOMBRE" 
IF CCONTADOR = 3 THEN PRINT "GORRION" 
RETURN 

REM A 

REM SE PROCESA LA RESPUESTA 

INPUT " ”S* 0 ”N”"3 25 

IF Z$ <> "S" AND 27% <> "N" THEN 320 
IF 72$ = "S" THEN CCONTADOR = CCONTADOR + 1 
PRINT 

RETURN 


Pequeño GRAN ESFUERZO-X 


GRAN ESFUERZO-X es el hermano mayor de GRAN ESFUERZO. Aunque este 
nuevo programa tiene lazos de parentesco definidos con el que acabamos de ver, es con- 
siderablemente más complicado. 

Observando una sola ejecución de éste, puede verse su grado de complejidad en com- 
paración con el anterior. En primer lugar, haremos que éste actúe de modo parecido a 
como lo hacía el otro. Sin embargo, ya desde la primera impresión en la pantalla, puede 
decirse que se trata de dos programas diferentes. Este es, en gran medida, un programa 
autosuficiente, es decir, la capacidad de decisión no descansa sólo en la base de datos 
como en el caso de GRAN ESFUERZO, sino en algoritmos de decisión más complejos. 


NOMBRE DEL SISTEMA? CRIATURAS 


NUMERO DE ELEMENTOS? 3 


NUMERO DE FACTORES QUE SE VAN A CONSIDERAR? 3 


Le decimos al programa el tema que va a tratar (CRIATURAS, en este caso) y el nú- 
mero de ELEMENTOS (es decir, resultados) y el número de FACTORES QUE SE VAN 
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A CONSIDERAR. Estas son las variables (como PUEDE VOLAR) que han de conside- 
rarse. Habiéndole proporcionado una primera estructura, GRAN ESFUERZO-X nos 
pide entonces que completemos los contornos: 


5 CRIATURAS 


QUE ES EL ELEMENTO 1 7? UN HOMBRE 


QUE ES EL ELEMENTO 2 ? UN CABALLO 


QUE ES EL ELEMENTO 3 ? UN GORRION 


Una vez que le hemos dicho los elementos, nos pide que introduzcamos las preguntas 
relacionadas con los factores que determinan el elemento que estamos buscando: 


FOR FAVOR HAGA LA PREGUNTA 1 
7? PUEDE VOLAR FOR SI MISMO 


POR FAVOR HAGA LA PREGUNTA 2 
7? TIENE DOS PATAS O PIERNAS 


POR FAVOR HAGA LA PREGUNTA 3 
> ? PUEDE CAMINAR 


En principio, esto puede dar la impresión de que nos estamos creando problemas 
inútiles sólo para imitar a GRAN ESFUERZO, pero, como veremos enseguida, merece la 
pena hacerlo. Este sencillo ejercicio nos muestra cómo podemos preparar a GRAN 
ESFUERZO-X para convertirlo en un experto sobre lo que queramos. 

GRAN ESFUERZO-X recorre entonces cada uno de los elementos y dice: “Si te 
hiciera la siguiente pregunta con respecto a este elemento contestarías “sí? o 'no”. A par- 
tir de esta información, GRAN ESFUERZO-X reúne una base de datos equivalente a la 
que telegrafiamos en GRAN ESFUERZO. Por supuesto, GRAN ESFUERZO-X podría 
construir su base de datos sobre cualquier tema: 


TAR 
] POR FAVOR RESPONDA LA SIGUIENTE PREGUNTA 
A | PARA EL ELEMENTO > UN HOMBRE  < 


ESCRIBA ”S” PARA UNA RESPUESTA AFIRMATIVA 
O *N”? PARA UNA NEGATIVA 


> FUEDE VOLAR POR SI MISMO? N 


> TIENE DOS PATAS O PIERNAS? S 


[ > PUEDE CAMINAR? S 
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POR FAVOR RESPONDA LA SIGUIENTE PREGUNTA 
PARA EL ELEMENTO > UN CABALLO < 


ESCRIBA ”S” PARA UNA RESPUESTA AFIRMATIVA 
OD *N” PARA UNA NEGATIVA 


> PUEDE VOLAR POR SI MISMO? N 


> TIENE DOS PATAS O PIERNAS? N 


> PUEDE CAMINAR? S 


POR FAVOR RESPONDA LA SIGUIENTE PREGUNTA 
PARA EL ELEMENTO > UN GORRION < 


ESCRIBA *S* PARA UNA RESPUESTA AFIRMATIVA 
D ”N”? PARA UNA NEGATIVA 


> PUEDE VOLAR POR SI MISMO? S 


> TIENE DOS PATAS O PIERNAS? S 


> FUEDE CAMINAR? S 


Una vez que hemos recorrido cada uno de los posibles elementos y le hemos dicho al 
programa cuáles serían nuestras respuestas a esas preguntas, GRAN ESFUERZO-X crea 
una base de datos que, en este caso, es poco más que sumar el total de respuestas *“S”. 
GRAN ESFUERZO-X nos cuenta sus descubrimientos: 


ESTA ES MI BASE DE DATOS: 


UN HOMBRE --- 6 
UN CABALLO --- 4 
UN GORRION --- 7 


¿Pero de dónde ha sacado esos números? Nosotros no hemos podido responder cua- 
tro veces “S” en el caso del caballo, ni siete en el del gorrión, porque sólo ha habido tres 
preguntas. GRAN ESFUERZO-X no añade sólo un uno por cada “S”, sino que da un 
número variable para cada respuesta. Si sólo añadiera uno por cada respuesta 'S” y 
nosotros respondiéramos “S” a, pongamos por caso, las preguntas una y tres por una co- 
sa y a las preguntas dos y tres por otra, los dos objetos tendrían el mismo total. 
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Para soslayar este problema, para garantizar que el orden real en el que se dan las 
respuestas “S” es importante, procederemos del siguiente modo: 


Una respuesta “S” a la pregunta 1 vale 1 
Una respuesta *S” a la pregunta 2 vale 2 
Una respuesta “S” a la pregunta 3 vale 4 
Una respuesta “S” a la pregunta 4 vale 8 


aña 16 
20. Ou 32 
7... 64 


... y así sucesivamente... 


Esto garantiza que, aun cuando se dé el mismo número de respuestas *“S” a dos cosas 
diferentes, nuestro experto, a la hora de emitir un juicio, tendrá un número de identifi- 
cación diferente. 

¿Funciona? Pues claro que funciona, y éste ee GRAN ESFUERZO-X mostrándonos 
cómo trabaja: 


POR FAVOR INTRODUZCA *S”* O *N” 


a 


+ FUEDE VOLAR POR SI MISMO 
?2N 


psa TIENE DOS PATAS O PIERNAS 
28 


PUEDE CAMINAR 
?S 
> MI RESULTADO FUE 4 


TU ESTABAS PENSANDO 
EN UN HOMBRE 


tz 


Dije antes que GRAN ESFUERZO-X era capaz de mucho más que GRAN ESFUER- 
ZO y ahora voy a demostrar que esta afirmación es cierta. Vamos a instruir a nuestro 
sistema experto en otro campo; un campo en el que yo soy totalmente lego. La base de 
datos introducida en GRAN ESFUERZO-X proviene de un libro escrito por un verdade- 
ro experto en ese campo, llamado Oliver Chambers (el libro es The Observer”s Book of 
Rocks and Minerals, Nueva York, Frederick Warne, 1979). Con la ayuda del señor 
Chambers, GRAN ESFUERZO-X se hará con la técnica necesaria para identificar cinco 
tipos diferentes de minerales utilizando para ello cuatro factores. 

Esto es algo que yo no podría hacer sin la ayuda de GRAN ESFUERZO-X. Lo mis- 
mo puede aplicarse a la mayoría de la gente que hoy usa sistemas expertos. Un sistema 
experto codifica, como si dijéramos, la pericia y el conocimiento de un experto ausente, 
de modo que los no expertos puedan utilizar esa base de datos a voluntad. 

Pasemos ahora un poco del conocimiento del señor Chambers a nuestro sistema (em- 
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pezando por el principio, de modo que los minerales no se confundan con los caballos y 


los gorriones): 


Le decimos el tema que va a tratar: 


NOMBRE DEL SISTEMA? IDENTIFICACION DE MINERALES 


NUMERO DE ELEMENTOS? 5 


NUMERO DE FACTORES QUE SE VAN A CONSIDERAR? 4 


Después le decimos los cinco minerales que va a intentar identificar: 


QUE ES EL 


QUE ES EL 


QUE ES EL 


QUE ES EL 


QUE ES EL 


Seguidamente, GRAN ESFUERZO-X aprende 


hora de diferenciar los minerales: 


POR FAVOR HAGA LA PREGUNTA 1 


? ES DURO 


FOR FAVOR HAGA LA FREGUNTA 2 
? TIENE RAYAS DE UN COLOR DISTINTO 


ELEMENTO 


ELEMENTO 


ELEMENTO 


ELEMENTO 


ELEMENTO 


DEL COLOR PRINCIFAL 


ca 


Esa) 


? PLEONASTO 
? LIMONITA 
? YODORITA | il 


? IRIDOSMIO 
? SILVANITA 


LJ) 


unas preguntas que le ayudarán a la 


POR FAVOR HAGA LA PREGUNTA 3 
7? ES SU PESD ESFECIFICO APROXIMADAMENTE 5 


FOR FAVOR HAGA LA FREGUNTA 4 


? ES FUNDIELE 


Ahora le toca al usuario el largo proceso de codificar los conocimientos y pericia: 
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POR FAVOR RESPONDA LA SIGUIENTE PREGUNTA 
PARA EL ELEMENTO > PLEONASTO < 


ESCRIBA ”S” PARA UNA RESPUESTA AFIRMATIVA 
D "N”* PARA UNA NEGATIVA 


> ES DURO? S 


> TIENE RAYAS DE UN COLOR DISTINTO 
DEL COLOR PRINCIPAL? N 


> ES SU PESO ESPECIFICO APROXIMADAMENTE 5? N 


> ES FUNDIBLE? N 


Va haciendo lo mismo con el resto de los minerales. Finalmente el sistema nos cuenta 
sus hallazgos: 


ESTA ES MI BASE DE DATOS: 


PLEONASTO --- 1 
LIMONITA --- 8 
YODORITA --- 12 
IRIDOSMIO --- 7 
SILVANITA --- 13 


Pongámoslo ahora en funcionamiento y veamos lo bien que marcha: 


FOR FAVOR FIENSE EN UNA DE LAS SIGUIENTES ELEMENTOS: 
PLEONASTO 
LIMONITA 
YODORITA 
IRIDOSMIO 
, O SILVANITA 


POR FAVOR INTRODUZCA *S”* O *N" ... 


ES DURO 
2 ON 
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TIENE RAYAS DE UN COLOR DISTINTO (FSA 
DEL COLOR PRINCIPAL ME 


L 
e AE, 
ES SU PESO ESPECIFICO APROXIMADAMENTE 5 

e 

> ON A] 
ES FUNDIBLE SE 
? 8 


> MI RESULTADO FUE 8 


TU ESTABAS PENSANDO : ) 
EN LIMONITA (AS, 


En cuestión de minutos, GRAN ESFUERZO-X ha adquirido un conocimiento que a 


mí me permite, 


como total lego en esa materia, hacer uso del juicio de un experto en una 


situación práctica. 

Estudiaremos ahora la construcción del programa y veremos la versión “inteligente” 
de GRAN ESFUERZO que hemos creado. 

El programa está controlado por un bucle de llamadas a diferentes subrutinas: 


an 
o 


[51] 
o 


5 
o 


REM GRAN ESFUERZO - X 

GOSUE 940: REM INICIALIZACION 

GOSUB 450: REM *CONSIGUE EXPERIENCIA” 

GOSUB 120: REM DEMUESTRA EXPERIENCIA 

GOSUB 1060 

PRINT "PULSE LA TECLA *RETURN” PARA EJECUTAR 
EL PROGRAMA DE NUEVO, 0" 

PRINT "CUALQUIER OTRA TECLA Y LUEGO "RETURN*” 
PARA FINALIZAR" 

INPUT 0$ 

IF Q% = "" THEN 40 o 

END Sa 


En la rutina de iniciación, GRAN ESFUERZO-X da un nombre al sistema (que pue- 
de resultar útil si se quiere guardar un archivo), así como un número a los elementos y a 
los factores. Se dimensionan unas matrices que contendrán los nombres y los totales de 
los elementos, así como las preguntas relacionadas con los factores. 


| 

| O 940 
| 950 
! 960 
Loa, 970 
Ey 980 
j 990 


A O 


REM INICIALIZACION E) 
CLS 
INPUT "NOMBRE DEL SISTEMA"; N$ 
GOSUB 1060 E 
INFUT "NUMERO DE ELEMENTOS"; ELEMENTOS 
GOSUB 1060 
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1000 INPUT "NUMERO DE FACTORES QUE SE VA A CONSI 
DERAR"s FACTORES 

1010 DIM A$ (ELEMENTOS), B$(FACTORES) 

1020 DIM D(ELEMENTOS) 

1030 CLS 

1040 RETURN 


La siguiente sección del código que visita el programa consigue los nombres de los 
elementos: 


450 REM SE LLENAN LAS MATRICES 

460 PRINT TAB(20 — LEN(N$)/2)3 N$ 

470 GOSURB 1060 

480 REM %** CONSIGUE LOS NOMBRES DE LOS ELEMENTOS 
** 

490 FOR J = 1 TO ELEMENTOS 

500 GOSUB 1060 

510 FPRINT "QUE ES EL ELEMENTO": Js 

520 INFUT A$(J) 

330 NEXT J 


Y después GRAN ESFUERZO-X pregunta por los factores: 


550 REM ** ALMACENA LAS PREGUNTAS QUE SE VAN A 
HACER ** 

560 FOR J = 1 TO FACTORES 

570 GOSUB 1060 

580 FRINT "POR FAVOR HAGA LA PREGUNTA": J 

590 INPUT B$(J) 

600 NEXT J 


Todo esto no es más que la preparación. Ahora GRAN ESFUERZO-X quiere conse- 
guir más información, de modo que recorre los elementos (utilizando el bucle J, que 
empieza en la línea 630 y acaba en la 810) y, dentro de ellos, los factores (con el bucle K, 
entre las líneas 720 y 800): 


620 REM ** ADQUIERE EXPERIENCIA *x 

630 FOR J = 1 TO ELEMENTOS 

640 CLS 

650 GOSUB 1060 

660 PRINT "POR FAVOR RESFONDA LA SIGUIENTE PREGUN 
TA" 
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670 
680 
6790 


700 


710 
720 
730 
740 
7530 
760 
770 
780 
790 
800 
810 


PRINT "PARA EL ELEMENTO > "3 A$(J)3 " Zn 

GOSUE 1060 

PRINT "ESCRIBA *S” PARA UNA RESPUESTA AFIRMA 
TIVA" 

PRINT " OD ”N*? PARA UNA NEGA 
TIVA" 

X= .5 

FOR K = 1 TO FACTORES 

X= X+X 

GOSUB 1060 

FRINT TAB(4)3 "> "3 B$(K);5 

MULTI = O 

INFUT Y$ 

IF Y$ <> "N" THEN MULTI = 1 

D(YJ) = D(J) + X * MULTIZ3 REM 

NEXT K 

NEXT J 


Una vez hecho esto, GRAN ESFUERZO-X nos enseña lo que ha aprendido: 


830 
840 
850 
860 
870 
880 
890 
900 
910 
920 


PRINT "ESTA ES MI BASE DE DATOS: " 

FOR J = 1 TO ELEMENTOS 

GOSUB 1060 

PRINT A$(J)5 " ---"3 D(J) 

NEXT J 

GOSUB 1060 

FPRINT TAR(8)5 "PULSE LA TECLA *RETURN” " 
INPUT 0$ 

CLs 

RETURN 


Guardándose esta información bien guardada en el bolsillo, GRAN ESFUERZO-X 
está ahora dispuesto a actuar, del mismo modo que hizo GRAN ESFUERZO, pregun- 
tando, sumando números y tomando una decisión a partir del total: 


160 
170 
180 
190 
200 
210 
220 
230 


REM DEMUESTRA EXFERIENCIA 

CLS 

GOSUR 1060 

PRINT "POR FAVOR PIENSE EN UNO DE LOS SIGUIEN 
TES ELEMENTOS: " 

FOR J = 1 TO ELEMENTOS 

PRINT TAB(J + 2); 

IF J = ELEMENTOS THEN PRINT "O "s 

PRINT A$(J) 

NEXT J 

GOSUB 1060 

RESULTADO = O 


X=.5 
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240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 


PRINT "POR FAVOR INTRODUZCA *S” O *N” ,.." 
FOR J = 1 TO FACTORES 

X = X + X 

GOSUB 1060 

PRINT B$(J) 

INFUT Es 

IF ES <> "N" THEN RESULTADO = RESULTADO + X 
NEXT J 

PRINT TAB(8)5 "> MI RESULTADO FUE"; RESULTADO 
GOSUB 1060 


M=0 
M=M+1 
IF D(M) = RESULTADO THEN 400 


IF M< ELEMENTOS THEN 350 

PRINT TAB(8)3 "> NO PUEDO IDENTIFICARLO" 
RETURN 

PRINT TAB(8)3 " TU ESTABAS PENSANDO" 
PRINT TAB (10)3 "EN "5 A$(M) 

GOTO 390 

RETURN 


O 


Como vemos, GRAN ESFUERZO-X se permite un poco de falibilidad, con una sen- 
tencia como NO PUEDO IDENTIFICARLO, si el total al que ha llegado no concuerda 
con ninguna de las cosas que le hemos programado (línea 380). 

Asimismo, vemos que el sistema nos va mostrando sus cálculos después de cada eje- 
cución; de este modo podemos seguir fácilmente lo que hace. Si el lector quiere impresio- 
nar a la gente con su sistema experto, lo mejor es que procure que el ordenador no haga 
sus cálculos en público, con lo que la impresión que ya de por sí produce el sistema será 
todavía mayor. 

- Este es el listado completo de GRAN ESFUERZO-X (para usuarios del ZX Spectrum, 
véase Apéndice): 


| () 10 
| 20 
30 

40 

| O: 50 


| 60 
A: 


80 

90 

O ' 100 
2 110 
120 

2 1 130 
5/4 1 140 
' 150 


160 
170 


190 


REM GRAN ESFUERZO -— X 

GOSUB 940: REM INICIALIZACION 

GOSUB 450: REM "CONSIGUE EXPERIENCIA” 

GOSUB 120: REM DEMUESTRA EXFERIENCIA 

GOSUB 1060 

PRINT "FULSE LA TECLA *RETURN” PARA EJECUTAR 
EL PROGRAMA DE NUEVO, 0" 


PRINT "CUALQUIER OTRA TECLA Y LUEGO ”RETURN” 
PARA FINALIZAR" 

INFUT 0$ 

IF 0% = "" THEN 40 

END 


REM 460660606 A 

REM DEMUESTRA EXPERIENCIA 

CLS 

GOSUB 1060 

PRINT "POR FAVOR PIENSE EN UNO DE LOS SIGUIEN 
TES ELEMENTOS: " 

FOR J = 1 TO ELEMENTOS 

PRINT TAB(J + 2); 


180 


240 


-= 


470 
480 


490 
500 
Si0 
320 
330 
540 
350 


560 
370 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 


680 
690 


IF J = ELEMENTOS THEN PRINT "O "s 

PRINT A$(J) 

NEXT J 

GOSUB 1060 

RESULTADO = O 

X= .3 

PRINT "POR FAVOR INTRODUZCA *S* O *N” ,.." 
FOR J = 1 TO FACTORES 

X= X + X 

GOSUE 1060 


FRINT B$(J) 


INFUT Es 

IF Es <> "N" THEN RESULTADO = RESULTADO + X 
NEXT J 

PRINT TAB(8)35 "> MI RESULTADO FUE"s RESULTADO 
GOSUB 1060 

M=0 

M=Ma id 

IF D(M) = RESULTADO THEN 400 

IF M< ELEMENTOS THEN 350 

PRINT TAB(8)5 "> NO PUEDO IDENTIFICARLO" 
RETURN 

PRINT TAB(8)5 " TU ESTABAS PENSANDO" 

PRINT TAB (10)3 "EN "5 A$(M) 

GOTO 390 

RETURN 

A 

REM SE LLENAN LAS MATRICES 

PRINT TAB(20 - LEN(N$)/2)5 N$ 


GOSUB 1060 

REM *%* CONSIGUE LOS NOMBRES DE LOS ELEMENTOS 
ek 

FOR J = 1 TO ELEMENTOS 

GOSUB 1060 

PRINT "QUE ES EL ELEMENTO": J5 

INPUT A$(J) 

NEXT J 

CLs 

REM ** ALMACENA LAS FREGUNTAS QUE SE VAN A 
HACER ** 

FOR J = 1 TO FACTORES 

GOSUE 1060 


PRINT "POR FAVOR HAGA LA PREGUNTA"; J 

INPUT B$(J) 

NEXT J 

CLS 

REM ** ADQUIERE EXPERIENCIA ** 

FOR J = 1 TO ELEMENTOS 

CLS 

GOSUB 1060 

PRINT "POR FAVOR RESPONDA LA SIGUIENTE PREGUN 
TA" 

PRINT "PARA EL ELEMENTO > "3 A$(J)3 "o <" 

GOSUB 1060 

PRINT "ESCRIBA *S” PARA UNA RESPUESTA AFIRMA 
TIVA" 
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700 PRINT ” DO ”"N” PARA UNA NEGA 


TIVA" 
710 X= .5 
720 FOR K = 1 TO FACTORES 
730 X = X + X 


740 GOSUB 1060 
750 PRINT TAB(4)5 "> "3 BS$(k)5 
760 MULTI = 0 
| 770 INPUT Y$ 
780 IF Y$ <> "N" THEN MULTI = 1 
790 D(J) = D(J) + X * MULTI2" REM e E 
800 NEXT Kk 
810 NEXT J 
820 CLS E e 
830 PRINT "ESTA ES MI BASE DE DATOS: " cc Q 
840 FOR J = 1 TO ELEMENTOS 
850 GOSUB 1060 
860 PRINT A$(J)5 " ---"3 D(J) 
870 NEXT J 
880 GOSUB 1060 
890 PRINT TAB(8)5 "PULSE LA TECLA "RETURN?" 
900 INPUT Q$ O 
910 CLS 
920 RETURN 
9%O REM 0 dd dd dd de 0 d 
940 REM INICIALIZACION y NA 
950 CLS 
960 INPUT "NOMBRE DEL SISTEMA"; Ns 
970 GOSUB 1060 O 
980 INPUT "NUMERO DE ELEMENTOS"; ELEMENTOS 
990 GOSUB 1060 
1000 INPUT "NUMERO DE FACTORES QUE SE VA A CONSI 
DERAR"; FACTORES 
1010 DIM AS(ELEMENTOS), BS$(FACTORES) 
1020 DIM D(ELEMENTOS) 
1030 CLS 
1040 RETURN 
1050 REM HH Ie dE TE E 
1060 PRINT: PRINT 
1070 RETURN 


La elección de un microprocesador 


Sería una lata que tuviéramos que educar a nuestro experto cada vez que quisiéramos 
hacer uso de sus conocimientos. Es muy poco probable, en una situación real, que se ne- 
cesite un sistema experto totalmente soft. El siguiente programa muestra un cuerpo de 
conocimientos experto —la capacidad para distinguir entre diferentes tipos de micropro- 
cesadores (de la variedad del silice)— codificado en sentencias DATA. 

Así funciona el programa: 
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ESTA ES MI BASE DE DATOS: 


TMS 994-0 (NMOS) --- 44 


68000 (NMOS) --- 12 


9940 (I3L) --- 56 


MN1610 (NMOS) --— 46 


8086 --- 60 


z8001 --- 28 


PUEDO IDENTIFICAR LOS SIGUIENTES MICROPROCESADORES 
TMS 994-0 (NMOS) 
68000 (NMOS) 
9940 (I3L) 
MN1610 (NMOS) 
8086 
O Z8001 


Después de decirnos lo que puede hacer, el programa nos pide que introduzcamos un 
número de preguntas relativas al microprocesador que estamos tratando de identificar. 
Luego nos dirá el nombre del microprocesador: 


FOR FAVOR INTRODUZCA *S* O "N” ... 
ES LA LONGITUD DE PALABRA DE 32 KITS 


TIENE 64k DE MEMORIA 

ES LA FRECUENCIA DEL OSCILADOR DE 5 MHz O MENOR 

EL TIEMPO DE EJECUCION MINIMO ES DE 3 MICROSEGUNDOS O MENOS 
TIENE EL JUEGO DE INSTRUCCIONES MAS DE 71 

TIENE EL INTEGRADO 40 PATILLAS 


2 MI RESULTADO FUE 12 
> EL QUE TU TIENES 
ES EL 48000 (NMOS) 


La base de datos específicos procede de otro experto, Ken Ozanne, cuyos conoci- 
mientos ya fueron codificados una vez en forma de libro (The Interface Computer 
Enclyclopedia, Londres, Interface Publications, 1983). Una vez que la información que- 
da encerrada en las sentencias DATA del programa, estará siempre a punto para cuando 
la queramos utilizar. 
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Esta es la parte fundamental del programa, aquella en la que se almacena el conoci- 
miento: 


580 REM INICIALIZACION 

590 CLS 

600 RESTORE 

610 ELEMENTOS = 6 

620 FACTORES = 6 

£$30 DIM AS (ELEMENTOS), B$(FACTORES), D(ELEMENTOS) 
640 FOR J = 1 TO ELEMENTOS 

650 READ A$(J), D(J) 

660 "NEXT J 

670 FOR J = 1 TO FACTORES 

680 READ B$(J) 

pol 690 NEXT J 

| 700 RETURN 

710 REM 4404646 de dd 6 dd 

720 REM FRINT:* PRINT 

730 RETURN 

740 REM 00606 dd dd 6 dd MM A A ED DD AA 


HARAN 
7350 REM ** ELEMENTOS (NOMBRES DE MICROFROCESADO 
RES) ** 
760 DATA "TMS 994-O (NMOS)", 44, "68000 (NMODS)", 
12 


770 DATA "9940 (I3L)", 56, "MN1610 (NMODS)",46 

780 DATA "BO0B6", 60, "ZB001", 28 

790 REM ** PREGUNTAS +*x 

800 DATA "ES LA LONGITUD DE PALABRA DE 32 BITS" 

810 DATA "TIENE 64k DE MEMORIA" 

820 DATA "ES LA FRECUENCIA DEL OSCILADOR DE 5 MHz 
O MENOR" 

3O DATA "EL TIEMFO DE EJECUCION MINIMO ES DE 3 
MICROSEGUNDOS O MENOS" 

840 DATA "TIENE EL JUEGO DE INSTRUCCIONES MAS DE 
JA 

850 DATA "TIENE EL INTEGRADO 40 FATILLAS" 


Aun cuando no se tenga ningún interés en identificar microprocesadores, el sistema 
experto codificado en este programa puede resultar muy útil. Como vemos, las variables 
ELEMENTOS y FACTORES se asignan en las líneas 610 y 620 y después éstos se utili- 
zan para dimensionar las matrices en la línea 630. Cambiando las variables de los ele- 
mentos y factores y modificando las sentencias DATA tendremos nuestro propio sistema 
experto, siempre a punto para ayudarnos cuando quiera que lo necesitemos. El número 
crucial que utiliza el sistema para identificar el microprocesador (o para aislar el elemen- 
to que se quiera) está contenido en las sentencias DATA, inmediatamente después del 
nombre del mismo. 

Con el fin de calcular los números, yo hice este gráfico. Es muy fácil hacer lo mismo 
para otros temas: 
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ELEMENTO FACTOR TOTAL 


1 2 3 4 »] 6 
TMS 9940 0 0 1 1 0 1 44 
68000 0 0 1 1 0 0 12 
994013L 0 0 0 1 1 1 56 
MNI1610 0 1 1 1 0 1 46 
8086 0 0 1 1 1 1 60 
Z8001 0 0 1 1 1 0 28 


Este es el programa completo. Con él cada cual puede crear el experto que elija o 
necesite (para usuarios del ZX Spectrum, véase Apéndice). 


REM ELECCION DE UN MICROPROCESADOR E 

GOSUB 580: REM INICIALIZACION | 

GOSUB 450: REM MUESTRA EL CONTENIDO DE LA 

BASE DE DATOS 

GOSUB 120: REM IDENTIFICA EL MICROPROCESADOR 

GOSUB 720 

PRINT "PULSE LA TECLA *RETURN” PARA OTRO 
MICROPROCESADOR, D" 

PRINT "CUALQUIER OTRA TECLA Y LUEGO "RETURN, 
PARA FINALIZAR" | 

INPUT Q$ ol 


IF 0$ = "" THEN 40 
END | 
REM Med dd DD dd DE DE DE dd DE DE DD HE A dd | 


REM IDENTIFICACION DEL MICROPROCESADOR 

CLS | 

GOSUB 720 | 

PRINT "PUEDO IDENTIFICAR LOS SIGUIENTES MICRO | 
PROCESADORES" 2] 

FOR J = 1 TO ELEMENTOS 

PRINT TAB(J + 2)5 | 

IF J = ELEMENTOS THEN PRINT "0 "; O] 

PRINT A$(J) 

NEXT J 

GOSUB 720 

RESULTADO = 0 

Xx =.5 

PRINT "POR FAVOR INTRODUZCA *"S* O "N” ...” 

FOR J = 1 TO FACTORES 

X= X + X 

GOSUB 720 

PRINT B$(J) 

INFUT E$ 

IF E$ <> "N" THEN RESULTADO = RESULTADO + X 

NEXT J 
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320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 


480 
490 
S00 
S10 
320 
530 
540 
350 
360 
570 


610 
620 


PRINT TAB(8)3 "> MI RESULTADO FUE" RESULTADO 
GOSUB 720 


Mm=0 
M= Mei 
IF D(M) = RESULTADO THEN 400 


IF M < ELEMENTOS THEN 350 

PRINT TAB(8)5 "> NO FUEDO IDENTIFICARLO" 
RETURN 

PRINT TAB(8)5 "> EL QUE TU TIENES" 

PRINT TAB (10)35 "ES EL "3 A$(M) 

GOTO 2390 

RETURN 

O 
REM MUESTRA EL CONTENIDO DE LA BASE DE DATOS 
CLS 

FRINT "ESTA ES MI BASE DE DATOS: ": PRINT+ 
PRINT 

FOR J = 1 TO ELEMENTOS 

GOSUB 720 

PRINT A$(J)3 " -—--"3 D(J)IPRINT: PRINT 
NEXT J 

GOSUB 720 

PRINT TAR(8) "PULSE LA TECLA *RETURN”" 
INPUT 0$ 

CcLs 

RETURN 

REM dd 26 dd dd 

REM INICIALIZACION 

CLS 

RESTORE 

ELEMENTOS = 6 

FACTORES = 6 

DIM A$ (ELEMENTOS), BS$(FACTORES), D(ELEMENTOS) 
FOR J = 1 TO ELEMENTOS 

READ A$(J), D(J) 

NEXT J 

FOR J = 1 TO FACTORES 

READ B$(J) 

NEXT J 

RETURN 

REM 40d dd 6 6 dd 

REM PRINT: PRINT 


RETURN 
A A 
ARANA 
REM ** ELEMENTOS (NOMBRES DE MICROPROCESADO 
RES) ** 
DATA "TMS 994-O (NMOS)", 44, "68000 (NMOS)", 
12 


DATA "9940 (I3L)", 56, "MN1610 (NMOS)",46 

DATA "8086", 60, "Z8001", 28 

REM ** PREGUNTAS ++ 

DATA "ES LA LONGITUD DE PALABRA DE 32 BITS" 

DATA "TIENE 44k DE MEMORIA" 

DATA "ES LA FRECUENCIA DEL OSCILADOR DE 5 MHz 
D MENOR" 


830 DATA "EL TIEMPO DE EJECUCION MINIMO ES DE 3 
MICROSEGUNDOS O MENOS" 

840 DATA "TIENE EL JUEGO DE INSTRUCCIONES MAS DE 
71" 

850 DATA "TIENE EL INTEGRADO 40 FATILLAS" 
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13 
Sistemas que aprenden 
solos 


Recordemos que en el segundo sistema que comentamos en esta sección, GRAN 
ESFUERZO-X, el programa nos permitía introducir conocimientos sobre cualquier 
tema. Una vez que los habíamos introducido, el programa ya estaba preparado para ser 
nuestro experto en el tema que hubiéramos escogido. 

Sin embargo, tenía un inconveniente. Exigía que recorriéramos los factores uno por 
uno en el caso de cada uno de los elementos, con el fin de adquirir la base de conoci- 
mientos sobre la que posteriormente trabajaría. 

Nuestro siguiente programa, APRENDE-SOLO, no necesita que se le vaya introdu- 
ciendo la información a cucharaditas, como era el caso de GRAN ESFUERZO-X. Aquí 
lo tenemos en acción: 


CUANTOS FACTORES? 


(A 


INTRODUZCA FACTOR 1 
? TIENE ALAS 


INTRODUZCA FACTOR 2 
? TIENE UN FAR DE OJOS 


INTRODUZCA FACTOR 
? COME GUSANOS 


tA 


INTRODUZCA ELEMENTO 1 
? GORRION 


INTRODUZCA ELEMENTO 2 
2 HOMBRE 
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Una vez que tenemos esta información podemos empezar a ejecutar el programa; éste 
aprenderá por sí solo a diferenciar entre los varios objetos que le hemos programado: 


AHORA LE DEMOSTRARE MI EXFERIENCIA... 
FIENSE EN UNO DE LOS ELEMENTOS: 
TIENE ALAS VERDAD? (*”S” O *N”) 


?N 
> 0 
nz TIENE UN FAR DE OJOS VERDAD? ("S* O "N”) 
?S 
. Pd 
ano , COME GUSANOS VERDAD? (*"S” D *"N”) 
ON 
> 0 


> CEREBRO = 0 
EL ELEMENTO ES: GORRION 
ES ESTO CORRECTO? ("S*” O "N”) 
2N 


AHORA LE DEMOSTRARE MI EXFERIENCIA... 
FIENSE EN UNO DE LOS ELEMENTOS: 


Lor TIENE ALAS VERDAD? (*S* O "N”) 
Ss 
O 
TIENE UN FAR DE 0JOS VERDAD? (*8” O "N”) 
20 
> 1 
COME GUSANOS VERDAD? (*S” O "N”) 
?8s 
> 1 
> CEREBRO = 1 
SS EL. ELEMENTO ES: GORRION 
| ES ESTO CORRECTO? (*S” 0 "N”) 
?Ss 
dl 


Se observará que al principio se equivoca, pero después enseguida empieza a hacer 
hipótesis válidas: 


AHORA LE DEMOSTRARE MI EXPERIENCIA... 
FIENSE EN UNO DE LOS ELEMENTOS: 
TIENE ALAS VERDAD? ("S” O "N”) 


?Ss 

ES 
TIENE UN PAR DE 0JOS VERDAD? (*S” O "N”) 
Ss 


1 


COME GUSANOS VERDAD? (*S” O *N”) 
28 
> 1 
+ CEREBRO = 2 
EL ELEMENTO ES: GORRION 
ES ESTO CORRECTO? (*S*” ( *N*) 
?Ss 


AHORA LE DEMOSTRARE MI EXPERIENCIA... 
PIENSE EN UNO DE LOS ELEMENTOS: 
TIENE ALAS VERDAD? (*S”? O "N”) 


?N 

> 0 
TIENE UN PAR DE OJOS VERDAD? (”S” O "N”) 
?S 

> 1 
COME GUSANOS VERDAD? (”S” O "N”) 
?2N 

> 0 

> CEREBRO = -1 


EL ELEMENTO ES: HOMBRE 
ES ESTO CORRECTO? ("S” O *"N”) 
28 


En un determinado momento parece que se vuelve infalible: 


AHORA LE DEMOSTRARE MI EXPERIENCIA... 
PIENSE EN UNO DE LOS ELEMENTOS1 
TIENE ALAS VERDAD? (*S” O *N”) 
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od 
TIENE UN PAR DE OJOS VERDAD? (”S” O "N”) 
?Ss 

> 1 
COME GUSANOS VERDAD? (*S” O *N”) 
768 

2d 

> CEREBRO = 1 


EL ELEMENTO ES: GORRION 
ES ESTO CORRECTO? (*S” O "N”) 
?S 


Cómo funciona 


Lo más importante (y que supone además la mayor limitación) de este programa es 
que sólo puede distinguir entre dos elementos (como el HOMBRE y el GORRION de 
nuestro ejemplo). El programa se inicia suponiendo que su total (la variable CEREBRO) 
será mayor o igual a cero. El verdadero valor que CEREBRO llega a tener carece de im- 
portancia. 
La primera vez que ejecutamos el programa, éste nos pide la información que va a 
necesitar: 


390 REM INICIALIZACION 

400 CLS 

410 NELE = 2: REM NUMERO DE ELEMENTOS 
420 PRINT: PRINT 

430 INPUT "CUANTOS FACTORES"3 FACTOR 


440 DIM A$(NELE): REM NOMBRES DE LOS ELEMENTOS 
450 DIM BS(FACTOR): REM NOMBRES DE LOS FACTORES 
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460 DIM C(FACTOR), D(FACTOR) 

470 CLS 

480 FOR J = 1 TO FACTOR 

490 PRINT: PRINT 

500 PRINT "INTRODUZCA FACTOR"; J 

510 INPUT B$(J) 

520 NEXT J 7 
530 PRINT: PRINT O] 
540 CLS 

550 FOR J = 1 TO NELE 

560 FRINT: PRINT 

570 PRINT "INTRODUZCA ELEMENTO"; J 
580 INPUT A$(J) 

590 NEXT J | 
600 RETURN O |] 


Cada vez que pasa por el bucle, APRENDE-SOLO empieza rellenando con ceros 
cada elemento de la matriz C (hay un elemento para cada factor): 


3O REM *** BUCLE PRINCIFAL DE AFRENDIZAJE *%%* 
40 CLS 

50 FOR J = 1 TO FACTOR 

60 2(J) = 0 

70 NEXT J 

80 FRINT 

90 GOSUE 130 

100 GOTO 40 


Seguidamente comienza a imprimir los factores, uno a uno, pidiéndonos que le diga- 
mos “S” o “N? si se refieren al elemento en el que hemos pensado: 


120 REM TIEMPO DE DEMOSTRACION 

130 PRINT "AHORA LE DEMOSTRARE MI EXPERIENCIA..." 
140 PRINT "PIENSE EN UNO DE LOS ELEMENTOS: " 

150 FOR J = 1 TO FACTOR 

160 PRINT B$(J)5 " VERDAD? (*S” O "N*)" 

170 INFUT Z$ 

180 IF 7% <> "S" AND 2% <> "N" THEN 170 


190 IF 7% = "S" THEN C(J) = 1 
200 PRINT TAB(29)3 "> "3 C(J) 
210 NEXT J 


Si decimos “S” se fija a uno ese elemento de la matriz C. Una vez que hemos pasado 
este bucle, CEREBRO calcula un total para ese elemento, con su código comprendido 
entre las líneas 230 y 270: 
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220 CEREBRO 
230 FOR J = 
240 CEREBRO 
250 NEXT J 

260 PRINT TAB(25) "> CEREBRO = "3 CEREERO 


lo) 
TO FACTOR 
CEREBRO + C(J) * D(J) 


UU ou 


Si observamos atentamente este listado, vemos que la primera vez que se ejecuta este 
bucle, CEREBRO será igual a cero (porque todos los C(J) han sido multiplicados por 
los de D(J) y todos los D(J) empiezan siendo iguales a cero). 

Esto significa que la primera vez que ejecutemos el programa, éste nos dará la opción 
uno (es decir, A$(1), el primer elemento que hemos introducido) si CEREBRO es igual 
a cero: 


270 IF CEREBRO >= O THEN FRINT "EL ELEMENTO ES: " 
3 A$(1): EX = —1 

280 IF CEREBRO < O THEN PRINT "EL ELEMENTO ES: " 
3 A$(2)1 EX = 1 


APRENDE-SOLO nos pregunta entonces si tiene razón. Si le decimos que sí, no mo- 
difica esta información, porque —en su forma presente— dará la misma respuesta la ' 
próxima vez que se le presente la misma información. Sin embargo, si le decimos que 
está equivocado, atravesará el bucle siguiente, modificando los valores de D(J) y utili- 
zando para ello los dos valores de C(J) que le dimos y la variable EX. Si retrocedemos a 
las líneas 270 y 280, veremos que EX se fija a —1 si el elemento en el que pensó era 
AS$(1), y a 1 si pensó en el A$(2). 

D(J) es el elemento vital de las líneas comprendidas entre la 230 y la 250 y ayuda a 
determinar el valor de CEREBRO); así pues, se ha de modificar si el programa produjo 
un resultado equivocado: 


(, 290 PRINT "ES ESTO CORRECTO? (*S* O *N”)3" yl 
300 INPUT Z$ E 
310 IF 72% <> "S" AND Z7$ <> "N" THEN 300 | 
320 FRINT | 
330 IF 7% = "S" THEN 370 O 4] 
340 FOR J = 1 TO FACTOR 
350 D(J) = D(J) + EX * C(J) 
360 NEXT J 
370 RETURN 


Una vez que ha hecho los cambios oportunos a D(J), utilizando ambos valores de los 
elementos de la matriz C (que, como veremos en las líneas 60 y 200, sólo pueden tener 
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valores iguales a uno o cero), el programa vuelve para intentarlo de nuevo. Como vere- 
mos, enseguida resulta infalible. 


Este es el listado completo (para usuarios del ZX Spectrum, véase Apéndice): 
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REM APRENDE -SOLO 

GOSUB 390: REM INICIALIZACION 

REM *x*%* BUCLE PRINCIFAL DE AFRENDIZAJE + 
cLS 

FOR J = 1 TO FACTOR 

Cc) =0 

NEXT J 

PRINT 

GOSUE 130 

GOTO 40 

REM Ida dd 6 ME M6 A EM A E A E 

REM TIEMPO DE DEMOSTRACION 

PRINT "AHORA LE DEMOSTRARE MI EXPERIENCIA..." 
PRINT "PIENSE EN UND DE LOS ELEMENTOS: " 
FOR J = 1 TO FACTOR 

PRINT B$(J)5 " VERDAD? ("S” O *N”)3" 

INPUT Z$ 

IF 272% <> "S" AND 72% <> "N" THEN 170 


IF 272% = "S"” THEN C(J) = 1 
PRINT TAB(29)5 "> "3 C(J) 

NEXT J 

CEREBRO = O 

FOR J = 1 TO FACTOR 

CEREBRO = CEREBRO + C(J) * D(J) 


NEXT J 

PRINT TAB(25) "> CEREBRO = "5 CEREERO 

IF CEREBRO >= O THEN PRINT "EL ELEMENTO ES: " 
3 A$(1)1 EX = -1 

IF CEREBRO < O THEN FRINT "EL ELEMENTO ES: " 
5 A$(2): EX = 1 

PRINT "ES ESTO CORRECTO? (*S* O "N")>" 

INFUT Z$ 

IF 72% <> "S" AND 272% <> "N" THEN 300 

FPRINT 

IF 72% = "S" THEN 370 

FOR J = 1 TO FACTOR 

D(J) = D(J) + EX * C(J) 

NEXT J 

RETURN 

REM AHH EAA RRA 

REM INICIALIZACION 

cLs 

NELE = 2: REM NUMERO DE ELEMENTOS 

FPRINT: PRINT 

INPUT "CUANTOS FACTORES" FACTOR 

DIM AS$(NELE): REM NOMBRES DE LOS ELEMENTOS 
DIM B$(FACTOR): REM NOMBRES DE LOS FACTORES 
DIM C(FACTOR), DIFACTOR) 

CLS 

FOR J = 1 TO FACTOR 


490 PRINT: FRINT 

500 PRINT "INTRODUZCA FACTOR"s J 
510 INFUT B$(J) 

520 NEXT J 

530 PRINT: FRINT 

540 CLS 

550 FOR J = 1 TO NELE 

560 FRINT: FRINT 

570 PRINT "INTRODUZCA ELEMENTO"s J 
580 INPUT A$(J) 

590 NEXT J 

600 RETURN 


Más de dos alternativas 


Aunque es fascinante el contar con un programa que aprende así, por sí solo, no deja 
de ser un gran inconveniente el hecho de que no es capaz de escoger entre más de dos 
alternativas. Nuestro siguiente programa, MULTI-APRENDE-SOLO, está pensado de 
modo que permite introducir más de dos elementos. 

El programa empieza así (como era de esperar): 


CUANTOS ELEMENTOS? 3 


CUANTOS FACTORES? 3 


POR FAVOR INTRODUZCA EL NOMBRE DEL ELEMENTO 1 
? HOMERE 

FOR FAVOR INTRODUZCA EL NOMBRE DEL ELEMENTO 2 
? CABALLO 

POR FAVOR INTRODUZCA EL NOMBRE DEL ELEMENTO 3 
? GORRION 


POR FAVOR INTRODUZCA EL NOMBRE DEL FACTOR 1 
? SOLO TIENE UN PAR DE PATAS O PIERNAS 

POR FAVOR INTRODUZCA EL NOMBRE DEL FACTOR 2 
? PUEDE VOLAR FOR SI MISMO 

FOR FAVOR INTRODUZCA EL NOMBRE DEL FACTOR 3 
? RESFIRA OXIGENO 


ESTOS SON LOS POSIBLES ELEMENTOS: | 

HOMBRE e 
CABALLO A 
GORRION 

POR FAVOR PIENSE EN UNO DE ELLOS PF 

PULSE LA TECLA "RETURN? CUANDO ESTE PREFARADO J 

2 dd 


No obstante, al ejecutarlo, veremos que el programa nos hace preguntas y luego 
intenta adivinar lo que estábamos pensando. Si se equivcca, nos pregunta cuál es la 
respuesta correcta: 


FOR FAVOR RESFONDA *S* O ”"N* A CADA UNA 
DE LAS SIGUIENTES PREGUNTAS, RELACIONADAS 
CON EL ELEMENTO EN QUE PENSO. 


SOLO TIENE UN FAR DE FATAS O FIERNAS 
78 

PUEDE VOLAR POR SI MISMO 

2N 

RESFIRA OXIGENO 

28 

ESTABAS FENSANDO EN: CABALLO 


INTRODUZCA *S* SI TENGO RAZON, Y *N” EN CASO CONTRARIO 
RON 

CUAL DEBERIA HABER SIDO LA RESPUESTA? 

7? HOMBRE 


Cuando lo hayamos ejecutado un tiempo (que no será muy largo, con sólo tres ele- 
mentos y tres factores), no fallará una: 


POR FAVOR RESFONDA *S* O "N” A CADA UNA 
DE LAS SIGUIENTES PREGUNTAS, RELACIONADAS 
CON EL ELEMENTO EN QUE FENSO. 


SOLO TIENE UN PAR DE FATAS O FIERNAS 


ON 
PUEDE VOLAR POR SI MISMO 
| A N 
[ ] RESPIRA OXIGENO 
?8 
is ESTABAS FENSANDO EN: CABALLO 


INTRODUZCA *S” SI TENGO RAZON, Y *N” EN CASO CONTRARIO 
ce 


FOR FAVOR RESFONDA *S” O *N* A CADA UNA 
DE LAS SIGUIENTES FREGUNTAS, RELACIONADAS 
CON EL ELEMENTO EN QUE FENSO. 


SOLO TIENE UN FAR DE FATAS O FIERNAS 


Fuene VOLAR FOR SI MISMO 
RESPIRA OXIGENO 
PA ES TAdóS PENSANDO EN: GORRION 
saca INTRODUZCA *S” SI TENGO RAZON, Y *N" EN CASO CONTRARIO 


La parte más importante del programa se encuentra entre las líneas 150 y 520. La pri- 
mera sección de éstas acepta las respuestas *“S” y aumenta una variable llamada CONTA- 
DOR dependiendo de la respuesta (añadiéndole 1 por la primera respuesta *S”, 2 por la 
segunda, 4 por la siguiente, luego 8, 16, 32 y así sucesivamente): 


(6) 
150 FRINT "POR FAVOR RESFONDA *S* O ”N” A CADA 


, 

| 

UNA" 

160 PRINT "DE LAS SIGUIENTES PREGUNTAS, RELACIO | 
NADAS" | 

170 PRINT "CON EL ELEMENTO EN QUE PENSO." | 
180 PRINT | 
190 CCONTADOR = O | 
200 X =.5 y] 


210 FOR J = 1 TO FACTOR | 
220 X = X + X | | 
230 PRINT F$(J) ' E 
OA) 240 INPUT Z$ Ñ 
| 250 IF 2% <> "S" AND Z$ <> "N" THEN 240 
260 IF 7% = "S" THEN CCONTADOR = CCONTADOR + X 
270 NEXT J 


Cuando el programa lleve un rato en ejecución, habrá asignado valores a muchos ele- 
mentos de la matriz B. B(1) será el total cuando A$(1) es el elemento, B(2) será el total 
para un elemento de A$(6) y así sucesivamente. Después de haber dado las respuestas *S” 
se atraviesa un pequeño bucle para ver si el total obtenido es igual a cualquiera de los va- 
lores B(J) previamente almacenados. De ser así, la variable X se fija igual a J: 


280 X= 0 

290 FOR J = 1 TO NELE 

300 IF CCONTADOR = B(J) THEN X = J 
310 NEXT y 


Si se ha asignado este valor, X deja de ser igual a cero y el sistema toma una decisión: 


320 IF X <> O THEN 410 


Si no se obtiene aquí una respuesta definida, el ordenador genera un número aleato- 
rio entre 1 y el número de elementos con el fin de lanzar una hipótesis. Pero esto no es 
suficiente para decir ESTABAS PENSANDO EN ””;A$ (número aleatorio generado). 
Aunque puede que el programa todavía no haya asignado un A$(n) al total de n que 
hemos recibido, es posible que ya haya asignado algunos elementos de A$. Por tanto, 
puede y debe rechazar algunas de las hipótesis producidas por el generador de números 
aleatorios: 
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330 X = INT(RND(1) * NELE) + 1 
340 REM ** RECHAZA TODAS LAS RESPUESTAS INCORREC 
TAS *+* 

350 BANDERA = O 

360 FOR J = i TO NELE 

370 IF B(J) = O THEN 390 

380 IF X = J AND CCONTADOR <> B(J) THEN BANDERA = 
1 

390 NEXT J 

400 IF BANDERA = 1 THEN 330 


En el caso de que la variable BANDERA sea igual a cualquier cosa excepto cero, no 
se puede usar la hipótesis (el elemento de A$ representado por el valor de X generado 
aleatoriamente), ya que el sistema ya sabe que la respuesta es errónea. Así pues, utilizan- 
do la línea 400, retrocede para encontrar un nuevo valor para X. 

Una vez hecho esto, el programa comprueba su hipótesis: 


410 PRINT "ESTABAS PENSANDO EN: "3 A$(X) 

420 PRINT 

430 PRINT "INTRODUZCA ”S* SI TENGO RAZON, Y "N” 
EN CASO CONTRARIO" 

440 INPUT Zó%$ 

450 IF Z%$ <> "S" AND Z$ <> '"N" THEN 440 

460 IF Z7$ = "S" THEN B(X) = CCONTADOR: GOTO 30 

470 PRINT "CUAL DEBERIA HABER SIDO LA RESFUESTA?" 

480 INPUT Z$ 

490 FOR J = 1 TO NELE 

500 1F A$(J) = Z$ THEN BE(J) = CCONTADOR 

510 NEXT J 

320 GOTO 30 


Si ésta era correcta, el sistema usa el bucle comprendido entre las líneas 490 y 510 
para descubrir qué elemento de A$ corresponde al total generado en esa ejecución. Esto 
garantiza que la próxima vez que se encuentre con ese total será capaz de identificar el 
elemento relevante de AS. 

Este es el listado completo que nos permite construir un sistema experto que aprenda 
por sí.solo (para usuarios del ZX Spectrum, véase Apéndice): 


| 10 REM MULTI-APRENDE-SOLO 
| 20 GOSUB 550: REM INICIALIZACION 

| O CLS 

Mg 40 PRINT "ESTOS SON LOS POSIBLES ELEMENTOS: " 
q 50 PRINT 

| 60 FOR J = 1 TO NELE 


190 
200 
210 
220 
230 
240 
250 
260 
270 
Z80 
290 
300 
310 
320 
330 
340 


350 
360 
370 
380 


390 
400 
410 
420 
430 


440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 


PRINT TAB(J35 A$(J) 

NEXT J 

FRINT 

PRINT "POR FAVOR FIENSE EN UNO DE ELLOS" 


PRINT 

PRINT "PULSE LA TECLA "RETURN CUANDO ESTE 
PREPARADO" 

INPUT Z$ 

cLs 

PRINT "POR FAVOR RESPONDA *S” O "N” A CADA 
UNA" 

PRINT "DE LAS SIGUIENTES PREGUNTAS, RELACIO 
NADAS" 

PRINT "CON EL ELEMENTO EN QUE PENSO." 

PRINT 

CCONTADOR = O 

X= .5 

FOR J = 1 TO FACTOR 

X= Xx + X 

PRINT F$(J) 

INPUT Z$ 


IF 72% <> "S" AND Z2$ <> "N" THEN 240 

IF 2% = "S" THEN CCONTADOR = CCONTADOR + X 
NEXT J 

x=0 

FOR J = 1 TO NELE 

IF CCONTADOR = B(J) THEN X = J 

NEXT J 

IF X <> O THEN 410 

X = INT(RND(1) * NELE) + 1 


REM ** RECHAZA TODAS LAS RESFUESTAS INCORREC 
TAS *+* 

BANDERA = Ó 

FOR J = 1 TO NELE 

IF B(J) = O THEN 390 

IF X = J AND CCONTADOR <> B(J) THEN BANDERA = 

1 

NEXT J 

IF BANDERA = 1 THEN 330 

PRINT "ESTABAS PENSANDO EN: "3 A$(X) 

PRINT 


PRINT "INTRODUZCA *S” SI TENGO RAZON, Y *"N” 
EN CASO CONTRARIO" 

INFUT Z$ 

IF 2% <> "S" AND 72% <> "N" THEN 440 

IF 72% = "S" THEN B(X) = CCONTADOR: GOTO 230 

PRINT "CUAL DEBERIA HABER SIDO LA RESFUESTA?" 

INFUT Z$ 


FOR J = 1 TO NELE 

IF A$(J) = 72% THEN E(J) = CCONTADOR 
NEXT J 

GOTO 30 

END 


A 

REM INICIALIZACION 

CLsS 

INPUT "CUANTOS ELEMENTOS"; NELE 


580 FRINT 
l 590 INPUT "CUANTOS FACTORES"s FACTOR 
lo, 600 CLS 
610 X = NELE + FACTOR 
620 DIM A$(NELE) 
630 DIM FS(FACTOR), E(X) 
640 FOR J = 1 TO NELE 
650 PRINT "FOR FAVOR INTRODUZCA EL NOMBRE DEL 
ELEMENTO"s J 
660 INPUT A$(J) 
670 NEXT J 
680 CLS 
690 FOR J = 1 TO FACTOR 
700 FRINT "FOR FAVOR INTRODUZCA EL NOMBRE DEL 
FACTOR"s J 
710 INPUT F$(J) 
720 NEXT y 
30 RETURN 


Sin corrección 


El último programa de esta sección es una variación del que acabamos de ver. La 
única diferencia entre aquél y el que vamos a ver ahora es que este último no necesita que 
se le diga cuál hubiera sido la respuesta correcta en el caso de que se equivoque. El pro- 
grama descubre solo y bastante rápidamente cuál es el modo de distinguir entre los dife- 
rentes elementos. 

No he vuelto a numerar este programa, de modo que es muy fácil modificar el ante- 
rior convirtiéndolo en MULTI-APRENDE-SOLO 2. Esta es una ejecución del programa: 


CUANTOS ELEMENTOS? 5 


( | CUANTOS FACTORES? 5 


POR FAVOR INTRODUZCA EL NOMBRE DEL ELEMENTO 1 
7? FERRO 
FOR FAVOR INTRODUZCA EL NOMBRE DEL ELEMENTO 2 


? DVEJA 

FOR FAVOR INTRODUZCA EL NOMBRE DEL ELEMENTO 4 
7? CUERVO 

FOR FAVOR INTRODUZCA EL NOMBRE DEL ELEMENTO 
? HOMBRE 


A ? CABALLO 
] FOR FAVOR INTRODUZCA EL NOMBRE DEL ELEMENTO 3 


cn 


L ) FOR FAVOR INTRODUZCA EL NOMBRE DEL FACTOR i 
? PUEDE HABLAR 
POR FAVOR INTRODUZCA EL NOMBRE DEL FACTOR 2 
? LADRA 
POR FAVOR INTRODUZCA EL NOMBRE DEL FACTOR 3 
? PUEDE VOLAR POR SI MISMO 
POR FAVOR INTRODUZCA EL NOMBRE DEL FACTOR 4 
? TIENE CUATRO PATAS 

POR FAVOR INTRODUZCA EL NOMBRE DEL FACTOR 5 
?- PRODUCE LANA 


Una vez que tiene situada la base de datos, el programa procede del modo siguiente: 


f EN 
ESTOS SON LOS FOSIBLES ELEMENTOS: ) 
PERRO e! 
CABALLO 
OVEJA 
CUERYO pa 


HOMBRE | ] 
POR FAVOR PIENSE EN UNO DE ELLOS PRE, 


PULSE LA TECLA *RETURN” CUANDO ESTE FREPARADO 
Ed . 


FOR FAVOR RESPONDA *S* O "N' A CADA UNA 
DE LAS SIGUIENTES PREGUNTAS, RELACIONADAS 
CON EL ELEMENTO EN QUE PENSO. pS 


PUEDE HABLAR ¡ 
2N ¡pa 


?sS 
PUEDE VOLAR POR SI MISMO 


?ON eS: 
TIENE CUATRO PATAS ( 

7S ¡ 
PRODUCE LANA 

?N 

ESTABAS FENSANDO EN: CUERVO 


INTRODUZCA ”S” SI TENGO RAZON, Y *N* EN CASO CONTRARIO [ V 
7N 


Aunque al principio de la ejecución la mayoría de las hipótesis serán erróneas, a me- 
dida que ésta avance, el programa irá acertando cada vez con mayor frecuencia: 


FOR FAVOR RESFONDA *S” OD ”N” A CADA UNA q 
DE LAS SIGUIENTES PREGUNTAS, RELACIONADAS [ 


1H 


CON EL ELEMENTO EN QUE FENSO. 


A] 


PUEDE HABLAR 


PUEDE VOLAR POR SI MISMO l ] 
TIENE CUATRO FATAS lame) 
PRODUCE LANA 

ESTABóS FENSANDO EN: CUERVO 


INTRODUZCA *S” SI TENGO RAZON, Y ”N” EN CASO CONTRARIO 
?Ss 
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Al final no fallará una. Funciona de un modo muy parecido al programa anterior, 
asignando valores a los elementos de la matriz B. No obstante, en esta ocasión el progra- 
ma cuenta con una matriz, C, que garantiza que nunca hará la misma hipótesis errónea 
partiendo del mismo total. La función de esta matriz es ir limitando cada vez más el 
número de elementos posibles, de modo que cada vez serán menos entre los que tenga 
que adivinar. No le lleva mucho tiempo al programa el construir una “visión del 
mundo”” que le garantice que siempre estará en lo cierto. El número de veces que tenga 
que probar para llegar a no equivocarse nunca depende, como era de esperar, del núme- 
ro de elementos. 

Una vez que el programa se las ha arreglado para aprender a distinguir por sí solo y 
sin cometer errores entre los diferentes elementos, contará con una base de datos a la 
que referirse en las pruebas siguientes. Esta es la base que MULTI-APRENDE-SOLO 
construyó durante esta ejecución: 


J=1 B(J)=10 AS$(J) = PERRO 
J=2 B(J)= 8 AS$(J) = CABALLO 
J=3 B(J)=24 AS(J) = OVEJA 
J=4 B(J)= 4 AS(J) = CUERVO 
J=5 B(J)= 1 AS(J) = HUMANO 


Y éste es el listado (para usuarios del ZX Spectrum, véase Apéndice): 


10 Mo MULTI APRENDE SOL Le 
20 GOSUE 33501 REM INICIALIZACIOÓN 
30 CLS 


40 FRINT "ESTOS SON LOS FOSIBLES ELEMENTOS: " 

50 FRINT 

60 FOR J = 1 TO NELE 

70 PRINT TAB(J)S A$(J) 

| 80 NEXT J 

90 FRINT 
100 FRINT "POR FAVOR FIENSE EN UNO DE ELLOS" 
110 FRINT 

po 120 FRINT "PULSE LA TECLA “RETURN”* CUANDO ESTE 

| FREFARADO" 

130 INPUT Z% 

140 CLS 

150 ERINT "FOR FAVOR RESFONDA *S* 0 "N" A CADA 


UNA" 
160 FRINT "DE LAS SIGUIENTES FREGUNTAS, RELACIO 
NADAS" 


170 PRINT "CON El ELEMENTO EN QUE FENSO, " 
| 180 FRINT 
| 190 CCONTADOR = 0 | 
|O! 200X=.5 e 
LOT MO FOR = 1 TO FACTOR 
| LO PRO X= X + X 
loo | 230 PRINT F$(D 
CD 1 240 INPUT 24 
| CO O 250 1 72% <5 "8" AND 2% <3 "N" THEN 240 


CCONTADOR + X 


IF Z2$ = "S" THEN CCONTADOR 

NEXT J 

Xx =0 

FOR J = 1 TO NELE 

IF CCONTADOR = B(J) THEN X 

NEXT J 

IF X <> O THEN 410 

X = INT(RND(1) * NELE) + 1 

REM ** RECHAZA TODAS LAS RESPUESTAS INCORREC 
TAS ** 

BANDERA = Ó 

FOR J = 1 TO NELE 

IF B(J) = O THEN 390 

IF X = J AND CCONTADOR <> B(J) THEN BANDERA = 

1 

IF C(X) 

BANDERA 

NEXT J 

IF BANDERA = 1 THEN 330 

PRINT "ESTABAS PENSANDO EN: "3 A$(X) 

PRINT 

PRINT "INTRODUZCA *S” SI TENGO RAZON, Y *N” 

EN CASO CONTRARIO" 

INPUT Z$ 

IF 2% <> "S" AND 272% <> "N" THEN 440 

IF 72% = "S" THEN B(X) = CCONTADOR: GOTO 0 

IF C(X) = O THEN C(X) = CCONTADOR: GOTO 20 


" 
a 


CCONTADOR OR D(X) = CCONTADOR THEN 
1 


D(X) = CCONTADOR: GOTO 30 
END 


REM dd dd 6 
REM INICIALIZACION 


CLS 

INPUT "CUANTOS ELEMENTOS"s NELE 
PRINT 

INPUT "CUANTOS FACTORES" FACTOR 
CLS 


X = NELE + FACTOR 

DIM A$(NELE) 

DIM FS$(FACTOR), B(X), C(X), D(X) 

FOR J = 1 TO NELE 

PRINT "POR FAVOR INTRODUZCA EL NOMBRE DEL 
ELEMENTO"; J 

INFUT A$(J) 

NEXT J 

CLs 

FOR J = 1 TO FACTOR 

PRINT "POR FAVOR INTRODUZCA EL NOMBRE DEL 
FACTOR"s J 

INFUT F$(J) 

NEXT J 

RETURN 
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Apéndices 
1 


Algunos consejos para 
mejorar las técnicas 
de programación 


En nuestro desarrollo como programadores siempre acabamos llegando a ese punto 
en que, dominando ya una gran parte del lenguaje que estamos utilizando, podemos 
concentrarnos en escribir mejores programas: unos programas que funcionen con relati- 
vamente poca corrección (debuggins), que sean fáciles de entender y Operar por otras 
personas y que estén escritos con lógica y elegancia. Los programas de inteligencia artifi- 
cial suelen resultar especialmente diabólicos por su complejidad; así pues, todo lo que 
podamos hacer para facilitar su comprensión, será siempre muy bien recibido. 

Hay más posibilidades de que un programa pueda ejecutarse la primera vez, cuando 
ha sido cuidadosamente planificado antes de empezar a introducir código (es decir, pro- 
grama) en el ordenador. 

Una buena manera de empezar es utilizar un esquema que se suele llamar “diagrama 
de flujo””. Un diagrama de flujo es una serie de cuadrados y otras formas unidas por lí- 
neas que muestra el curso de la acción y la toma de decisiones en el ordenador cuando se 
ejecute el programa. 

Las formas que se usen no son demasiado importantes; yo sugiero que se utilicen 
dos: un rectángulo para la mayoría de las acciones que ha de llevar a cabo el ordenador 
y una forma romboidal para las decisiones que tome el ordenador. Las esquinas de esta 
forma romboidal se pueden utilizar, como se ve en el siguiente diagrama, para atender a 
las alternativas con la que ha de enfrentarse el ordenador. 

Este diagrama muestra el diagrama de flujo de un programa que fija la variable X 
igual a cero. Se comprueba el valor de X. Si se encuentra que es menor de 20, el progra- 
ma retrocede para volver a añadirle uno a X. El proceso continúa hasta que el valor 
de X es igual a 20. 
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Una de las ventajas de utilizar un diagrama de flujo es que no te ves atado, nada más 
empezar, por las peculiaridades del lenguaje que estás utilizando, sus puntos débiles y 
fuertes. En su lugar, uno puede concentrarse en lo que quiere hacer. Por supuesto, lo 
más seguro es que tenga que modificar ligeramente sus planes para aceptar las limitacio- 
nes impuestas por el lenguaje de la programación, sea el que fuere, pero no se tendrá que 
doblegar a estas limitaciones (que, en parte, pueden ser imaginarias) al principio del 
proceso. 

El diagrama de flujo es universal. Puede usarse el mismo diagrama como base de un 

programa escrito en un ordenador equipado con un lenguaje totalmente diferente de 
aquel con el que, en principio, se pensaba escribir el programa. 
Un diagrama de flujo modela el curso (o flujo) de la acción y la lógica del programa 
siendo, por tanto, muy útil para descubrir errores nada más empezar a escribirlo. Por 
ejemplo, se puede encontrar que una determinada condición no se va a cumplir nunca, 
lo que puede llevar a que el programa termine atrapado en un bucle infinito. Otras par- 
tes del código pueden desviarse completamente porque la condición que dispara la entra- 
da en esa parte del código tampoco llega a satisfacerse nunca. 

El siguiente paso, tras haber diseñado un diagrama de flujo para el programa y tras 
haberlo ejecutado in, mente unas cuantas veces para corregir los errores más obvios, es 
reducir el diagrama de flujo a una serie de llamadas de subrutinas. Aunque parece un 
poco tonto hacerlo en el caso de un programa como éste: “FIJA X IGUAL A CERO, 
AÑADE UNO, COMPRUEBA SI ES MENOR DE VEINTE”, este método se muestra 
particularmente valioso con programas más complejos, como los que intentan demostrar 
la inteligencia artificial. 


Programación en módulos 


Como se habrá observado en casi todos los programas que componen este libro, yo 
soy partidario de iniciar cada programa con una serie de llamadas a la subrutina, ocu- 
pándose cada una de ellas por separado de realizar las diferentes acciones. Con esto, si 
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en un programa determinado hubiera que realizar varias veces una secuencia determina- 
da, se puede llamar reiteradamente a la subrutina hasta que se satisfaga una determinada 
condición que señale el final de la ejecución. 

El lector se dará cuenta de lo útil que resulta este modo de programación cuando lle- 
gue a la etapa en la que se corrigen los errores que pueda tener el programa. De haber un 
error, lo más probable es que éste se dé en una sola subrutina, de modo que no le resul- 
tará demasiado difícil localizar cuál es la que lo contiene, en vez de tener que abrirse 
paso por todo el programa intentando seguir las huellas de dicho error. 

Cuando se trabaja con módulos de subrutinas, uno puede ir comprobando por sepa- 
rado las diferentes secciones del programa, incluso antes de que éste esté totalmente fina- 
lizado. Intentaré dejar esto bien claro mostrando la primera parte de un programa típico 
para jugar a las DAMAS (de hecho, se comprobará que el programa SNICKERS, inclui- 
do en este libro, empieza también de un modo muy parecido a éste). Nuestro programa 
de DAMAS ideal empezaría así: 


10 REM COMFROBACION 

ZO GOSUE 9000: REM INICIALIZA LAS VARIABLES 

30 GOSUE 8000: REM IMPRESION DEL TABLERO 

40 GOSUE 7000: REM ACEFTA EL MOVIMIENTO DEL 
JUGADOR 

30 GOSUE 8000: REM IMPRESION DEL TARLERO 

60 GOSUB 5000: REM EL ORDENADOR REALIZA UN 
MOVIMIENTO 

70 IF (la persona mo ha ganado) AND (el ORde 
nador no ha ganado) THEN 30 

80 IF (el ORdenador ha ganado) THEN PRINT "HE 
GANADO" 

90 IF (la persona ha ganado) THEN PRINT "HAS 
GANADO" 

100 END 


Se podría empezar a ejecutar y comprobar una parte bastante apreciable del progra- 
ma (como la rutina de iniciación, la de impresión del tablero y la que acepta la jugada 
del jugador humano) antes incluso de ponernos a pensar sobre cómo demonios vamos a 
conseguir que el ordenador haga su jugada. 

Sabríamos, por ejemplo, que no tendríamos que perder más tiempo pensando si se 
debe o no a un error en la rutina de impresión del tablero el que la salida sea un poco 
rara. Habiendo comprobado la subrutina del tablero y la de la jugada del jugador huma- 
no, sabemos que el error debe estar en la subrutina comprendida entre las líneas 5000 
y 6999, la rutina en la que el ordenador lleva a cabo sus júgadas. 

Todo lo que hay que hacer es poner una sola sentencia PRINT, como “JUGADA 
DEL ORDENADOR”, seguida de un RETURN para subrutinas incompletas, sabiendo 
que el programa va a aceptarlo, y demostrar la dirección que sigue el curso del progra- 
ma, aun cuando todavía no hayamos escrito todas las secciones de código. 

Como norma general, yo aconsejo a mis lectores que utilicen el sistema que implica el 
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uso de un “bucle principal”? de llamadas a la subrutina dentro del cual podrán ““conte- 
ner”” el programa entero. 

También sugiero que se tenga escrito el programa, o una gran parte de éste, antes de 
encender el ordenador; ya sé que para ello es preciso vencer la gran tentación de sumer- 
girse directamente en el mundo de la máquina y empezar a perforar secciones de código 
a medida que se nos van ocurriendo, pero merece la pena imponerse cierta disciplina en 
este sentido. Quien se decida a hacerlo descubrirá enseguida lo útil que resulta el escribir 
primero el programa a mano y, además, a la larga, los resultados que obtenga serán mu- 
cho mejores que en el caso de no haberlo escrito primero. 

Y, sobre todo, siguiendo este procedimiento, acabará tardando menos tiempo que si 
hubiera empezado el proceso sentado ante el teclado del ordenador. 

A mí me llevó un tiempo aprender esta lección. Aunque había leído muchas veces 
consejos del tipo de “calcule exactamente lo que va a hacer antes de empezar a introdu- 
cir información en el ordenador”, solía lanzarme directamente a la máquina sin muchas 
ideas previas. 

Aunque hacía un diagrama de flujo y tenía una idea del tipo de organización que 
quería conseguir en la pantalla, es cierto que no solía escribir el programa en papel antes 
de empezar a teclearlo en el ordenador. Pero entonces, en una ocasión me sucedió que, 
bulléndome mil ideas en la cabeza no para uno, sino para varios programas, no tenía, 
sin embargo, la posibilidad de acceder a ordenador alguno y me vi obligado a escribirlos 
en un cuaderno. 

La relativa facilidad con la que pude corregir los programas cuando finalmente los 
introduje en un ordenador y la complejidad de los mismos (entre los que se incluye mi 
primer programa de AJEDREZ), me convencieron de que ésta era la manera de trabajar 
y así lo hice en lo sucesivo. 

Cuando trabajo en programas de inteligencia artificial, suelo escribir en primer lugar 
el ““bucle de llamada de subrutinas””, pero sin numerar las líneas, de modo que el pro- 
grama contiene líneas como GOSUB PRINT BOARD y GOSUB INITIALISE. Seguida- 
mente, escribo cada módulo (o subrutina) en una hoja de papel diferente y luego, cuan- 
do ya he escrito todas las subrutinas más importantes, las ordeno como me parece más 
lógico. 

Todo esto ocurre, por supuesto, antes de escribir los números de las líneas. Los mó- 
dulos de las subrutinas se ordenan de un modo que garantice que la estructura del pro- 
grama sea lo más lógica posible. Yo utilizo flechas para indicar el destino de los GOTO 
dentro de un módulo y nombres para la subrutina, como una sugerencia en el bucle prin- 
cipal. Posteriormente, cuando el programa va tomando forma, numero las líneas (siem- 
pre lo hago de diez en diez, empezando en la línea 10) y añado los destinos relevantes de 
los GOTO y GOSUB. 

Todos los programas cuentan con una ““condición final””, punto en el cual finaliza el 
proceso. Merece la pena poner una comprobación para esta condición; dicha comproba- 
ción puede formar parte del GOTO que hace retroceder el programa de modo que vuelve 
a ejecutarse. Esto garantiza que el ciclo continuará hasta que se cumpla una determinada 
condición, momento en el que el programa se desvía de ese GOTO y continúa con las lí- 
neas que indican el fin del programa. 
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Signos de entrada explícitos y sentencias PRINT 


Cuando escribimos un programa debemos tener en mente cómo lo va a ver un extra- 
ño cuando lo ejecute por primera vez. Si es necesario introducir un signo de entrada, es 
mucho más útil que el programa imprima algo como “¿CUANTAS HORAS HA TRA- 
BAJADO EL EMPLEADO ESTA SEMANA?””, en vez de imprimir simplemente “*IN- 
TRODUZCA HORAS?” o, lo que es peor, porque no serviría de nada, un signo de inte- 
rrogación. 

La misma sugerencia puede aplicarse a la impresión de la salida. Es mucho mejor que 
el programa imprima “EL NUMERO DE HORAS TRABAJADAS ESTA SEMANA 
ES 27””, en vez de “HORAS: 27”” o simplemente “*27””. Es cierto que el proporcionar 
signos de entrada y sentencias PRINT explícitas consume memoria, al tiempo que se ha 
de pensar también en el tiempo que lleva el teclearlas al introducir el programa, pero la 
contribución que éstas aportan al programa final significa que merecen la pena, pese a 
los problemas que al principio puedan plantear. 


Sentencias REM 


Mientras que las sentencias PRINT y los signos de entrada explícitos ayudarán a 
comprender el programa a la persona que vaya a ejecutarlo, las sentencias REM pueden 
ayudar a entender el listado a aquellos que lo lean por primera vez. Las sentencias REM 
(que, como todos sabemos, serán totalmente ignoradas por el ordenador a la hora de 
ejecutar el programa) deben usarse para iluminar el curso lógico del programa y aclarar 
lo que sucede en ciertas secciones de éste. Son esencialmente importantes en aquellas 
partes del programa en las que se toman decisiones o se realizan cálculos. 

Las sentencias REM no sólo pueden utilizarse para explicar las diferentes partes del 
código, sino también para proporcionar “*cortes”” visuales, de modo que los diferentes 
bloques de código que llevan a cabo ciertas tareas están visualmente separados del resto 
del programa. Para ello se puede utilizar una sentencia REM en blanco (es decir, la pala- 
bra REM sola). También se puede utilizar una línea de asteriscos. 


Variables 


Merece la pena que comentemos un poco el uso de los nombres explícitos para las va- 
riables, ya sea con la palabra entera (tal que HORAS, como nombre variable, en un pro- 
grama que se encargue de las nóminas de una empresa, para indicar horas trabajadas) o 
abreviada (como HR), siempre que su significado sea obvio. Esto facilita la tarea de 
seguir el rastro de las variables cuando se trabaja en un programa determinado (como 
el que acabamos de mencionar). Es muy útil cuando se realiza la primera corrección 
(debugging) y después también, cuando se haga necesario mejorar o ampliar el programa. 

Asimismo, los nombres variables explícitos ayudan a clarificar el código; de este 
modo, cuando otros programadores quieran calcular cuál es la misión de las diferentes 
partes del programa, no encontrarán grandes dificultades. Por otro lado, suponen una 
gran ayuda para el propio programador del programa cuando éste vuelva a retomarlo 
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después de pasado un tiempo. Es sorprendente cómo un código que parece sorprendente- 
mente claro, en términos de su objetivo, cuando uno lo introduce al hacer el programa, 
puede resultar denso y difícil de seguir cuando uno vuelve al programa después de mu- 
cho tiempo. 


Comprobación de la entrada 


El programa debe comprobar toda la entrada que introduzca el usuario antes de 
aceptarla, lo que garantiza que éste no va a venirse abajo en un momento determinado 
debido a datos incorrectos. Ya se quiera utilizar una entrada en cadena alfanumérica o 
una entrada numérica, suele ser más acertado utilizar la entrada en cadena alfanumérica, 
que se comprueba primero para ver si el material introducido es aceptable y luego, de ser 
necesario, la cadena puede sustituirse por un número. 

Por ejemplo, si el usuario necesita introducir un número entre el uno y el nueve, pue- 
de aceptarse una cadena y después comprobar para asegurarnos de que no es menor 
a “1” ni mayor a “9” antes de sustituirlo por un número con una orden del tipo VAL. 

Al tiempo que hemos de asegurarnos de que el programa rechazará toda entrada que 
no sea válida, tenemos que comprobarlo también verificando que todas las entradas que 
éste acepta producirán, cuando sean procesadas posteriormente, las respuestas adecua- 
das. Por ejemplo, debemos asegurarnos de que el programa no acepta el cero como un 
número posible, si el ordenador ha de dividir después por ese número. 

Del mismo modo, si se han de procesar números mediante una función y luego usar 
para una división el resultado de ese procesado, se ha de verificar que una entrada apa- 
rentemente válida no se convierte en cero como resultado de la evaluación realizada por 
la función. 

Si el ordenador rechaza la entrada del usuario y le pide una nueva, el programa, 
idealmente hablando, debería señalar por qué no era válida la entrada anterior o volver a 
imprimir exactamente qué es lo que se requiere (como “INTRODUZCA UN NUMERO 
ENTRE 1 y 4””). Nos arriesgamos a que todos los que utilicen nuestro programa acaben 
echando chispas contra nosotros si cada vez que introducen una entrada aparentemente 
válida, el programa se la rechaza sin darle una razón. 


Documentación 


Se suele llamar documentación a todo el material escrito que acompaña a un progra- 
ma. Por muy reducida que sea, esta documentación suele resultar muy útil como apoyo 
para el programa. 

La información escrita debe explicar, por supuesto, lo que hace el programa y des- 
pués bosquejar el curso de la acción de éste. La documentación debe avisar al usuario 
sobre lo que debe hacer cuando esté ejecutando el programa, además de indicar los tipos 
de entrada que serán aceptados por el programa. 

También se debe comentar en esta documentación el formato de la salida final. Se 
puede incluir una lista de nombres variables. 

Asimismo, se pueden añadir los medios, de haber alguno, de desarrollar, ampliar o 
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mejorar el programa. Al igual que referencias escritas relativas a cualquier material que 
pueda ayudar o comprender los algoritmos utilizados en el programa o que sugiera áreas 
para el desarrollo del mismo. 

Es razonable considerar, desde diferentes puntos de vista, que la tarea de programar 
no termina cuando finalizamos el programa. Sin una documentación adecuada, la tarea 
no puede darse por acabada sino en sus tres cuartas partes. La documentación añade un 
sello de profesionalidad al trabajo, lo que permite, a su vez, que el programa pueda 
usarse de un modo más efectivo. 

Posiblemente, el único caso en que no es necesaria una documentación muy extensiva 
es cuando el programa está totalmente especificado mediante las sentencias REM. Un 
programa que utilice gran cantidad de sentencias de este tipo puede no necesitar docu- 
mentación alguna, especialmente si se incluye una lista de variables, a modo de una serie 
de sentencias REM, al final del programa. 

No obstante, por lo general, suele ser preferible documentar externamente el progra- 
ma, en vez de confiar en que las sentencias REM, o las diferentes posibilidades ofreci- 
das, lo hagan por nosotros. Cuando se escribe la documentación de un programa se debe 
tener en cuenta que va dirigido a alguien que quizá nunca haya visto una ejecución de di- 
cho programa. 

La persona que la lea ha de hacerse una idea lo más exacta posible de qué es lo que 
hace el programa y cómo lo hace; cómo actúa recíprocamente con el usuario, tanto a la 
hora de aceptar la información que éste le introduce, como a la de presentarle los resul- 
tados de sus cómputos; y cómo está organizado en su conjunto. 

Cuando escribimos un programa de inteligencia artificial, suele ser muy útil incluir en 
la documentación alguna información relativa a la naturaleza de la inteligencia artificial 
que va a intentar demostrar el programa. Se pueden dar referencias de artículos o libros 
que traten en particular sobre ese campo. De este modo, el usuario podrá apreciar, ade- 
más, el buen trabajo que hemos hecho. 

La documentación de un programa de envergadura ha de empezar con una introduc- 
ción que explique rápidamente lo que sucede en el programa y cómo se usa éste, para 
posteriormente pasar a comentarlo en más detalle. No es un buen camino el forzar al 
usuario a abrirse paso a través de una maraña de información con el fin de sacar los he- 
chos vitales, necesarios para empezar a ejecutar el programa. 


221 


2 
Sugerencias 
bibliográficas 


La bibliografía relativa a la Inteligencia Artificial es ya muy abundante y además no 
deja de crecer de día en día. La mayoría de las obras sobre el tema por mí consultadas 
merecen la pena, por el momento hay poca morralla. 

No pretendo ofrecer en este apéndice una relación exhaustiva de toda la bibliografía 
existente. Más bien comentaré los libros que he encontrado particularmente interesantes 
y valiosos. Reseño cada uno de ellos con cierto detalle, de modo que el lector pueda ha- 
cerse una idea de lo que contienen. 

He incluido algunos libros que sólo tocan el tema de la inteligencia artificial de un 
modo marginal (como los libros de Levy sobre el AJEDREZ y las DAMAS o la Antolo- 
gía de Asimov) porque los temas que tratan son interesantes para cualquiera que trabaje 
en este campo. Asimismo, sugieren áreas de investigación interesantes. 


ARE COMPUTERS ALIVE?, Geoff Simons (Brighton Sussex, The Harvester Press 
Ltd., 1983). 


Se trata de una visión de conjunto sobre la situación actual en la investigación de la 
inteligencia artificial; es muy fácil de leer y pone un énfasis especial en los robots. Cubre 
una gran parte del campo, pero sin que por ello quede sacrificada la profundidad necesa- 
ria para situar las cosas en su contexto histórico. 


ARTIFICIAL INTELLIGENCE, Patrick Henry Winston (Reading, Massachusetts, 
Addison-Wesley Publishing Co., 1984). 


Winston es profesor de Informática y también director del Laboratorio de Inteligen- 
cia Artificial en MIT. Esta es la segunda edición de un libro que, tras su publicación 
en 1977, no tardó en convertirse en una obra de consulta tradicional en este campo. 


223 


Winston señala en esta edición que en los siete años transcurridos desde que lo es- 
cribió, han cambiado muchas cosas en el campo de la inteligencia artificial. El cambio 
fundamental, dice, radica en el paso dado de los ““ejemplos”” de inteligencia artifical 
(programas que muestran lo que se podría hacer) a las ““demostraciones”” que expresan 
de modo real algunas de las promesas del pasado (sistemas de inteligencia artificial prác- 
ticos en funcionamiento). 

Entre el mucho material que incluye, este libro ofrece un gran número de ejemplos 
sobre las limitaciones prácticas que han de reconocerse cuando se trabaja en el campo de 
la inteligencia artificial. Winston señala que, para comprender la inteligencia artificial y 
trabajar en este dominio, se han de comprender primero algunas ideas básicas. Estas 
son: equivalencias, reducción del objetivo, explotación de la restricción, búsqueda, con- 
trol, solución de problemas y lógica. 


ARTIFICIAL INTELLIGENCE, An Introductry Course, A Bundy (Edinburgo, 
Edinburgh University Press, 1980). 


Se trata de los apuntes recogidos en un curso sobre inteligencia artificial. El curso 
centra su atención en la construcción de programas, más que en dar a los alumnos una 
visión general del campo. El material ofrecido sobre la manipulación de bloques y la in- 
vestigación mediante árboles es particularmente interesante. 

El libro está dividido en seis partes: Representación del Conocimiento, Lenguaje 
natural, Respuesta de preguntas y deducción, Percepcción visual, Aprendizaje y Progra- 
mación. Se ofrecen también algunos programas escritos en LOGO. El estilo del libro es 
bastante seco, dados los fines para los que fue escrito, pero no por ello deja de ser me- 
nos valioso. También se incluyen traducciones a LISP de la mayoría de los programas 
ofrecidos en el libro. 


ARTIFICIAL INTELLIGENCE, An MIT Perspective, P. H. Winston y R. H. Brown 
(Cambridge, Massachusetts, The MIT Press, 1980). 


Este libro, que consta de dos volúmenes, es un densísimo tratado teórico, lleno de 
fórmulas y expresiones lógicas. Es una obra de un gran valor siempre que uno pueda 
desenvolverse a través de todos estos símbolos arcanos. 


ARTIFICIAL VISION FOR ROBOTS, 1. Aleksander (Londres, Kogan Page Ltd., 1985). 


Es una visión de conjunto fascinante de todo el campo de la inteligencia artificial. 
Aleksander es profesor de Electrónica en la Brunnel University, pero su introducción al 
libro es clara y fácil de leer, así como sus otras dos contribuciones a la obra. 

El último capítulo es una de ellas y en éste Aleksander empieza haciendo un rápido 
repaso a la situación actual de la investigación en el campo de la inteligencia artificial y 
¡uego pasa a comentar las ““propiedades emergentes””. Esta frase proviene de la descrip- 
ción del comportamiento inteligente de un animal como la propiedad emergente del teji- 
do nervioso que compone su cerebro. Dice que se podría argumentar que el comporta- 
miento inteligente de un ordenador no es una propiedad emergente de la máquina (no 
más de lo que la pintura lo es del lienzo), pero, sin embargo, se podría considerar que la 
inteligencia artificial es una propiedad emergente de las reglas sobre las que está escrito 
cada programa en particular y que merece la pena seguir esa línea de investigación. Por 
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todo, es un libro muy interesante que muestra claramente cómo se sobreponen los dife- 
rentes campos de la inteligencia artificial. 


AUTOMATIC NATURAL LANGUAGE PARSING, K. Sparck Jones y Y. Wilks 
(Chichester, West Sussex, Ellis Horwood Ltd., y Nueva York, Halsted Press, 1983). 


Este libro estudia las tendencias actuales en el campo de los problemas y técnicas del 
análisis automático de una lengua natural. Este libro señala que el análisis gramatical es 
el elemento clave del procesado del lenguaje natural en su conjunto y es vital en áreas ta- 
les como las investigaciones de orientación lingiística y con los subsistemas que forman 
parte de los sistemas expertos. 


BUILD YOUR OWN EXPERT SYSTEM, Chris Naylor (Cheshiere, Sigma Technical 
Press, 1983). 


Este libro se ganó rápidamente la fama de ser la mejor guía existente en el mercado 
para la construcción de sistemas expertos. Cuando empecé a leerlo me quedé perplejo al 
descubrir que Chris intentaba ser gracioso. Después descubrí que el material que ofrecía 
era bueno y el humor ciertamente ayuda a pasar un texto bastante denso. 

La primera parte del libro es razonablemente fácil de entender y los listados iluminan 
el texto O, para ser más exacto, proporcionan de hecho algunos programas expertos de 
gran mérito. Después se va haciendo más denso y complicado y requiere una lectura de- 
tenida, sobre todo cuando se llega al Teorema de Bayes u otros temas similares, pero 
todo ello está bien explicado, de modo que una lectura tenaz puede iluminar incluso el 
texto más complicado. 

Para cerrar el libro, Naylor proporciona una gran base de datos médicos (datos de 
unas 100 enfermedades diferentes y sus diagnósticos). Como él mismo señala, el progra- 
ma no nos permite practicar la medicina, pero sí encontrar una base estupenda para 
nuestra hipocondría. La base de datos muestra que Naylor se está refiriendo a sistemas 
expertos aplicables al mundo real. 

Este es el libro con el que ha de empezar todo aquel que esté interesado en el estudio 
de los sistemas expertos. 


CHESS AND COMPUTERS, David Levy (Potomac, Maryland, Computer Science 
Science Press, Inc., 1976). 


El señor Levy es un maestro internacional del ajedrez y un escritor muy prolífico en 
este tema. Es famoso mundialmente debido a la ““apuesta Levy””. En 1968 apostó que en 
diez años no se produciría ningún programa de ajedrez capaz de ganarle. Ganó su apues- 
ta en 1978. Empezó su vida en el campo de la informática en la Universidad de Edinbur- 
go, en donde enseñó programación en ALGOL e Inteligencia Artificial a principios de los 
años setenta. Levy es una de las autoridades mundiales en el campo del ajedrez en el or- 
denador y es presidente de una compañía, basada en Londres, que se especializa en la 
programación de juegos inteligentes. 

Quienes estén interesados en la historia del ajedrez, en los diferentes intentos del 
hombre por conseguir máquinas que jugaran al ajedrez, este es el libro más indicado. Es- 
te contiene una historia sólida y ofrece bastantes partidas, o partes de éstas, para mos- 
trar cómo funcionan los programas. 
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COMPUTER GAMESMANSHIP, David Levy (Londres, Century Publishing, 1983). 


Subtitulado como “Guía completa para la creación y estructuración de programas 
para juegos”, este libro, por el sólo hecho de estar escrito por David Levy, ya es reco- 
mendable. Contiene una exposición particularmente clara sobre las búsquedas, el al- 
goritmo alfa-beta y las diferentes maneras de acelerar las búsquedas de jugada por par- 
te del ordenador. Entre otros juegos se tocan: el NIM, diversos juegos de cartas (en- 
tre los que se incluyen el POKER y el RUMMY), el AJEDREZ, el BACKGAMMON, el 
OTHELLO, el GO-MOKU, el SHOGI y el DOMINO. 

Como se ve, se trata de una lista formidable. Este libro es una necesidad para quienes 
estén interesados en las relaciones entre inteligencia artificial y la programación de 
juegos. 


COMPUTER GAME-PLAYING, Theory and Practice, M. A. Bramer (Chichester, 
West Sussex, Ellis Horwood Ltd., 1983). 


Aunque de fácil lectura, en éste se trata el tema de un modo mucho más complicado 
que en el libro de Levy. Sus 300 páginas son muy ricas en ideas específicas aplicables en 
la creación de programas de juegos, así como sugerencias para otras líneas de investiga- 
ción. Es una obra de referencia extremadamente valiosa, pese a que no es el tipo de libro 
que uno se sienta a leer de un tirón (como es el caso del de Levy). 


COMPUTER POWER AND HUMAN REASON, Joseph Weizenbaum (San Francisco, 
W. H. Freeman and Co., 1976). 


Es éste un libro importante, aun cuando su tesis fundamental —que con la investiga- 
ción de la inteligencia artificial estamos rozando, sin ser del todo conscientes de ello, zo- 
nas extremadamente peligrosas— reside más en una fijación interna de su autor que en 
unos argumentos verdaderamente convincentes. Menciónaba este libro en el material que 
acompañaba al programa DOCTOR, ya que el primer programa ELIZA se lo debemos 
al autor de este libro. En realidad, es el resultado directo del shock sufrido por Weizen- 
baum al ver la reacción de la gente ante ELIZA. 

Weizenbaum cree que hay áreas del conocimiento en las que no se deben introducir 
las máquinas, aun cuando pudieran hacerlo. Parece que todos los argumentos que se le 
pudieron ofrecer en contra, como por ejemplo aquél según el cual si una máquina puede 
ayudar en ciertas circunstancias, se debería investigar, chocaron contra una pared, ya 
que el tono de Weizenbaum, en el continuo debate que originó la publicación del libro, 
con el paso de los años se ha ido haciendo cada vez más estridente. McCorduck (en su li- 
bro Machines Who Think) cuenta la historia de un colega suyo que sostenía que Weizen- 
baum la había tomado con la inteligencia artificial por la sencilla razón de que no había 
conseguido ningún programa más de interés desde que produjo ELIZA. 

Sea como fuere, el libro merece la pena, aun cuando el lector termine rechazando la 
mayoría de las tesis que presenta. Siempre está bien el leer una crítica bien informada, 
aunque en este caso uno puede acabar sintiendo que el crítico está golpeando un tambor 
vacío. Pero puede que no le produzca la misma impresión a todo el mundo. El hecho de 
que se sigan haciendo ediciones del libro casi diez años después de su primera edición 
(algo muy raro en un campo que se desarrolla de un modo tan rápido como la inteligen- 
cia artificial), muestra que sus ideas todavía se someten a consideración y debate. 
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THE FIFTH GENERATION, Artificial Intelligence and Japan's Computer Challenge to 
the World, Edward A. Feigenbaum y Pamela McCorduck (Reading, Massachusetts, 
Addison-Wesley Publishing Co., 1983). 


Es un libro típicamente americano. Un libro escrito con un objeto determinado: ge- 
nerar una reacción política específica. Como tal, sus autores lo escribieron apresura- 
mente y parece más un artículo largo para una revista como el Times que un libro. (En 
términos de estilo es considerablemente inferior al libro anterior de Pamela McCorduck, 
Machines Who Think, que, pese a la palidez de su título, transmite, bastante poética- 
mente, una visión particularmente rica de la historia de la inteligencia artificial. Más 
adelante se ofrece un comentario más detallado sobre este libro.) 

Dejando el estilo aparte, el mensaje del libro es importante. Nos viene dado en tres 
partes: una observación, una advertencia y un llamamiento a las armas. Japón se ha 
dado cuenta de que la riqueza del mundo del futuro yace en la gestión, manipulación y 
control de la información. Japón ha decidido que será el líder del mercado en ésta la más 
moderna de las industrias. Y utilizando el ya conocido poder japonés, ha reunido a un 
grupo de jóvenes y brillantes cerebros (*“nadie por encima de los 35””, era una de las re- 
glas) para hacer realidad la inteligencia del ordenador antes de que acabe esta década. 

Esta es la observación. La advertencia es que América corre el riesgo de perder para 
siempre su liderazgo en la tecnología informática. El llamamiento a las armas es para 
que surja algún tipo de respuesta nacional coordinada (como ya lo han hecho los británi- 
cos y otros países europeos) que detenga un poco el reto japonés. Independientemente de 
que percibamos el riesgo de un modo tan inminente como lo hacen McCorduck y Feigen- 
baum, ¡e¡independientemente de que estemos de acuerdo con el remedio propuesto (aun 
cuando reconozcamos el diagnóstico), este libro debe leerse. Sin las perspectivas que 
ofrece este libro, tendríamos una visión distorsionada de la inteligencia artificial. 


FIFTH GENERATION COMPUTER SYSTEMS, T. Moto-oka (Nueva York, North- 
Holland Publishing Co., 1982). 


Se recopilan en este libro los debates de un congreso internacional sobre sistemas in- 
formáticos de la quinta generación que tuvo lugar en Japón en 1981. La quinta genera- 
ción es una denominación que vamos a oír mucho en los próximos diez años y este libro 
es el informe de donde se inició todo. Las diferentes ponencias van de las visiones de 
conjunto a presentaciones detalladas sobre temas muy especializados. 

No es un libro para hojear, ya que la lectura no es fácil y sólo vale para aquellos que 
estén verdaderamente interesados en las implicaciones y promesas del proyecto japonés. 


EL LIBRO GIGANTE DE LOS JUEGOS PARA ORDENADOR, Tim Hartnell (Ma- 
drid, Anaya Multimedia, 1984). 


No creo que haya nada malo en recomendar un libro mío. He incluido esta obra en la 
bibliografía porque contiene un gran número de programas que demuestran ciertos as- 
pectos de la inteligencia artificial, entre los que se incluye uno que utiliza la “lógica apre- 
surada”” para buscar la solución a un código parecido al del ““Mastermind” fijado por el 
usuario. Los programas del REVERSI/OTHELLO, GOMOKU y SHOGUN (mi propia 
versión del Hasami Shogi) contienen todos ellos códigos que pueden ser interesantes. 
Hay incluso un juego de AJEDREZ que juega espantosamente mal, pero que puede de- 
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mostrar el funcionamiento de ciertas funciones de evaluación no especialmente refina- 
das. Al menos, el lector encontrará en este libro una gran fuente de ideas para utilizar 
como base de sus propios programas de inteligencia artificial. 


INTELLIGENT SYSTEMS, The Unprecedented Opportunity, J. E. Hayes y D. Michie 
(Chichester, West Sussex, Ellis Horwood Ltd., y Nueva York, Halstead Press, 1983). 


Si el libro de Naylor es una guía fundamental a la hora de construirse cada uno sus 
propios sistemas expertos, este libro es esencial como soporte teórico. De aquí procede la 
sólida teoría que sostiene el humor de Naylor. 

Este libro nació de un seminario patrocinado por la British Computer Society, llama- 
do ““Los próximos diez años”? y realizado bajo la dirección independiente de Michie. 
Pese a su forma compuesta de ponencias para el seminario, lo que sugiere que podría ser 
seco e incomprensiblemente para mortales ordinarios como yo, lo encontré claro y senci- 
llo. Y sobre todo fascinante. Es quizá extraordinario que una parte tan extensa de la in- 
teligencia artificial sea tan apasionante. Nadie que esté interesado en la inteligencia 
artificial puede encontrar este libro falto de emoción. Con este libro, como en muchos 
otros, el lector tiene la sensación de estar actuando recíprocamente con una “ciencia fic- 
ción”” del futuro muy cercana y muy probable. 

Y precisamente porque es probable, su fascinación vale más que cien medios ima- 
ginarios. 


MAQUINAS QUE PIENSAN, Pamela McCorduck (San Francisco, W. H. Freeman 
and Co., 1979). 


Olvidemos el título. Este libro es una verdadera piedra preciosa. Subtitulado ““Inves- 
tigación personal en la historia y el porvenir de la inteligencia artificial””, su autora se 
refiere, con un estilo francamente bueno, a las gentes que componen la historia de la 
inteligencia artificial. 

Empieza el libro haciendo un resumen de todas las tradiciones históricas en las que el 
hombre se ha asustado de sus invenciones parecidas a él mismo y después pasa a argu- 
mentar, de un modo totalmente convincente, que esas actitudes han desvirtuado el modo 
en que hoy la gente reacciona u Opina ante los artefactos que muestran inteligencia 
artificial. 

Este modo de ver el tema es extremadamente valioso en sí mismo y sirve para demos- 
trar que McCorduck sabe muy bien por dónde se anda en este tema. En realidad, habló 
con todos los gigantes de este campo de la investigación, incluyendo a Weizenbaum, a 
Simon (quien junto con Newell construyó la primera máquina pensante del mundo, el 
Logic Theorist, que descubrió una prueba más simple para uno de los teoremas del Prin- 
cipia Mathematica que la que habían encontrado Russell y Whitehead; de lo que, al pa- 
recer, Russell estaba encantado) y Rosen (quien, con su equipo del Stanford Research 
Institute, construyeron a Shakey, un robot que se movía solo y que en los años sesenta se 
hizo muy famoso). 

Todo esto significa que el libro es una importante fuente de documentos históricos, 
llena de apartes y anécdotas que muestran el lado humano de la investigación de la inteli- 
gencia artificial (así como sus hitos y sus fracasos). 
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PRACTICAL EXPERIENCE OF MACHINE TRANSLATION, Veronica Lawson 
(Nueva York, North Holland Publishing Co., 1982). 


Este libro es la recopilación de los debates de un congreso que tuvo lugar en Londres, 
en el mes de noviembre de 1981, y en el que se reunieron un gran número de expertos en 
el campo de la traducción mediante máquinas. Es un informe excelente del estado de este 
campo en aquel momento y marca asimismo las líneas fundamentales en la investigación 
de la traducción con ordenadores. 

Entre los títulos de las ponencias presentadas se pueden citar: ““La traducción me- 
diante máquinas y la gente”” (Veronica Lawson); “Aspectos económicos de la traducción 
mediante máquinas”” (Georges van Slype); ““Experiencia en la elaboración posterior de 
textos traducidos del inglés al francés”? (Bernard Lavorel), y “Los límites de la innova- 
ción en la traducción mediante ordenadores”” (Margaret Masterman). 

Este libro es un buen empiece si se está interesado en este campo específico de la 
inteligencia artificial. 


THOSE AMAZING ELECTRONIC THINKING MACHINES?, Isaac Asimov, Mar- 
tin S. Greesberg y Charles E. Waugh (Nueva York, Frankling Watts, 1983). 


Esta antología, recopilada por Asimov, de historias de robots y ordenadores, se en- 
cuentra aquí incluida porque es fascinante ver las posibilidades que los escritores han 
podido llegar a imaginar para este arte. 

Cuando el lector esté cansado de símbolos lógicos, puede darse un respiro leyendo 
algún relato de esta antología. 
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3 

Glosario de términos 
informáticos y de 
inteligencia artificial 


ACUMULADOR: Parte de la unidad aritmético-lógica del ordenador que almacena 
los resultados intermedios. 

ALFANUMERICO: Se utiliza generalmente para describir el teclado que contiene teclas 
alfabéticas y numéricas, en comparación con el tecladonumérico, que sólo tiene teclas 
para los números del uno al nueve. 

ALGEBRA BOOLEANA: El álgebra del mecanismo lógico y de toma de decisiones 
desarrollada por el matemático inglés George Boole. De ella depende la capacidad 
que muestra el ordenador a la hora de tomar decisiones. Asimismo, gran parte de la 
fuerza del ordenador para demostrar un comportamiento inteligente reside en el uso 
del Algebra Booleana (véase el capítulo dedicado al APRENDIZAJE Y RAZONA- 
MIENTO). 

ALGORITMO: La secuencia de pasos dados en la solución de un problema. 

APL: Siglas de Automatic Programming Language, un lenguaje desarrollado por Iver- 
son, a principios de los años sesenta, que apoya una amplia serie de operadores y es- 
tructuras de datos. Usa un conjunto de caracteres no estándar. 

ARCHIVO (File): Grupo de datos relacionados entre sí que se procesan juntos, tales 
como el archivo de un estudiante, etc. 

ASCII: Siglas de American Standar Code for Information Exchange. Se trata de un 
código casi universal para caracteres, números y símbolos, asignándole un número 
entre el 0 y el 255 a cada uno de ellos, como por ejemplo, el 65 para la letra A. 


BASE DE CONOCIMIENTO: En los sistemas expertos se llama así a la base de datos 
sobre los cuales el sistema emite juicios. 
BASE DE DATOS: Colección de datos organizada de tal modo que el ordenador pueda 
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acceder rápidamente a ella. Una base de datos relacional es aquella en la que las co- 
nexiones entre los distintos elementos que forman la base de datos están almacenadas 
explícitamente con el fin de ayudar a la manipulación y el acceso a éstos. 

BANDERA: Indicador interior del programa que da información sobre una condición 
determinada. En 

BASIC: Siglas de Beginner*s All-purpose Symbolic Instruction Code, es el lenguaje que 
se utiliza generalmente en los microordenadores. Es fácil de aprender, ya que la ma- 
yoría de las instrucciones son muy parecidas al inglés. 

BAUDIO: Unidad que mide la velocidad de transmisión de los datos. Normalmente 
representa el número de bits (unidades discretas de información) por segundo. 

BENCHMARK (véase “Punto de referencia””). 

BINARIO: Sistema de numeración en el que hay sólo dos símbolos, 0 y 1 (en oposición 
al sistema decimal ordinario, en el que hay diez símbolos: 0, 1, 2, 3, 4, 5, 6, 7, 8 y 9). 
Los ordenadores **piensan”” en términos binarios. 

BOOTSTRAP: Primer programa que se ejecuta tras la conexión del ordenador y que 
permite a éste aceptar y comprender otros programas. 

BUFFER (véase “Regulador?””). 

BUG: Error en un programa. 

BUS: Grupo de conexiones eléctricas usadas para unir un ordenador a otro mecanismo 
auxiliar o a otro ordenador. 

BYTE: El grupo más pequeño de bits que forma una palabra en el ordenador. General- 
mente un ordenador se describe por sus bits, ya sea de ocho bits o de dieciséis bits, lo 
que significa que la palabra consiste en una combinación de ocho o de dieciséis ceros 
o unos. 


CAMPO: Colección de caracteres que forman un grupo distinto, como un código de 
identificación, un nombre o una fecha; generalmente un campo forma parte de una 
información. 

CIRCUITO PRINCIPAL (Motherboard): Unidad equipada de modo que se le pueden 
añadir al ordenador circuitos adicionales proporcionándole así características de las 
que carece ese modelo estándar (tales como gráficos de alta resolución o control de 
robot). 

COBOL: Siglas de Common Business Orientated Language, un lenguaje de programa- 
ción estándar, muy parecido al inglés, que se utiliza fundamentalmente en el mundo 
de los negocios. 

CODIGO DE CARACTERES: Es el número de ASCII (véase ASCII) que se refiere a un 
símbolo en particular, tales como 32 para un espacio o 65 para la letra A. 

COMPARTIDO: Se utiliza este término cuando se da el caso de un gran número de 
usuarios, cada uno en un terminal distinto, que utilizan el mismo ordenador, el cual 
divide su tiempo entre ellos de modo que da la impresión de que les está dedicando 
““toda su atención”? a cada uno por separado. 

COMPILADOR: Programa que pasa otro programa escrito en un lenguaje de alto nivel 
(parecido al humano) al lenguaje de la máquina de modo que ésta lo entienda perfec- 
tamente. 

CONCATENAR: Se llama concatenación a la suma de dos series. 

CP/M: Siglas de Control Program/Microcomputer; se trata de un sistema universal de 
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operación por medio de disco, desarrollado y puesto en el mercado por Digital 
Research, en Pacific Grove, California. 


DATOS: Término general para la información procesada por un ordenador. 

DEBUG: Quitar los errores (Bugs) de un programa. 

DEDUCCION SIMBOLICA (véase “Sistemas deductivos””). 

DIAGRAMA DE FLUJO (Flowchart): Trazado escrito de la escritura y curso de un 
programa en el que se utilizan formas diferentes, como un rectángulo o un cuadra- 
do para indicar una acción del ordenador, y un rombo para las decisiones tomadas 
por éste. Normalmente, se suele hacer el gráfico o diagrama del programa antes de 
introducir una sola línea de éste en el ordenador. 

DIRECCION: Número que se refiere a la posición, generalmente en la memoria del 
ordenador, en la que se almacena la información. 

DISCO: Un medio de almacenaje magnético (más adelante descrito también como “*dis- 
co duro”” o “disco flexible””) utilizado para archivar la información del ordenador y 
los programas. Estos discos se parecen hasta cierto punto a los discos de música de 
45 rpm y miden generalmente ocho, cinco y un cuarto, o tres pulgadas de diámetro. 
En algunos sistemas también existen ““microdiscos”? más pequeños todavía. 

DISCO FLEXIBLE (váse ““Disco””). 

DOBLE DENSIDAD: Adjetivo con el que se describe a los discos grabados utilizando 
una técnica especial que, como su nombre sugiere, duplica la cantidad de almacenaje 
que el disco proporciona. 

DOCUMENTACION: Las instrucciones y aplicaciones escritas que acompañan al pro- 
grama. 

DOS: Siglas de Disck Operating System: el programa que permite que el ordenador 
controle un sistema de disco. 


ENSAMBLADOR (Assembler): Es un programa que convierte otro programa escrito 
en lenguaje de ensamble (assembly language) en un código que el microprocesador 
puede ejecutar directamente. 

ENTRADA (Input): Toda la información que se introduce en un programa durante su 
ejecución. 

EPROM: Siglas de Erasable Programmable Read Only Memory, un mecanismo que 
contiene información bajo una forma semipermanente y que exige una exposición a 
la luz ultravioleta en el caso de querer borrar su contenidos. 


FIRMWARE: Los componentes físicos, la maquinaria de un ordenador, se denominan 
hardware; los programas, en forma que la máquina pueda leerlos, ya sean en disco o 
en cassettes, se llaman software, y los programas que funcionan dentro del ordenador 
relacionados íntimamente con el hardware se denominan firmware; el firmware pue- 
de alterarse, hasta cierto punto, por medio del software. 

FORTRAN: Un lenguaje de alto nivel que se utiliza generalmente para el trabajo cien- 
tífico (siglas de FORmula TRANslation). 


GATE (“Puerta lógica): ““Componente”” del ordenador que se encarga de tomar deci- 
siones permitiendo para ello que el circuito vaya en una u otra dirección según las 
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condiciones que se han de satisfacer (véase el capítulo dedicado al APRENDIZAJE 
Y RAZONAMIENTO). 

GIGO: Siglas de Garbage In Garbage Out, con lo que se quiere indicar que si se intro- 
duce basura (garbage), es decir, datos erróneos, el resultado de tales datos será tam- 
bién “basura”. 

GLOBAL: El conjunto de condiciones que afectan a todo un programa se denomina 
“global””, opuesto a “local” en el caso de que no afecte a todo el programa. 

GRAFICOS: Término con que se designa toda salida del ordenador que no sea alfanu- 
mérica o simbólica. 


HARD COPY: La información que la impresora vierte en papel. 

HARDWARE: Se denomina hardware a la maquinaria física del ordenador (véase 
firmware y software). 

HEURISTICA: Manera de alcanzar un objetivo basada en la experiencia más que en 
el cálculo; esta técnica no garantiza un resultado cierto (comparada a un algoritmo 
que es un procedimiento que, cuando se aplica, produce siempre el resultado desea- 
do); los programas de ajedrez juegan, en gran medida, de manera heurística. 

HEXADECIMAL: Un sistema de contar muy apreciado por los programadores de códi- 
gos, ya que está en estrecha relación con el método de almacenaje utilizado por los 
ordenadores; está basado en el número 16 en vez del 10, que es el número en el que se 
basa nuestro sistema de contar ordinario. 


IMPRESORA DE MATRIZ DE PUNTOS (Dot-Matrix Printer): Impresora que forma 
las letras y símbolos con puntitos, normalmente en una cuadrícula de ocho por ocho 
o de siete por cinco. 

IMPRESORA TERMICA: Mecanismo que imprime la salida (Output) del ordenador 
en un papel sensible al calor. Aunque los impresores térmicos son más silenciosos 
que los otros, su salida no siempre es fácil de leer y además el papel no es fácil de 
almacenar. 

INGENIERIA DEL CONOCIMIENTO: Proceso mediante el cual se traspasa al orde- 
nador la pericia o conocimiento humano en un campo determinado, o varios. 

INSTRUCCION: Elemento del código de programación que le dice al ordenador que 
lleve a cabo una tarea determinada. Una instrucción en lenguaje de ensamble, por 
ejemplo, podría ser ADD, con lo que le dice al ordenador que realice una suma. 

INTELIGENCIA ARTIFICIAL: Dominio de la ciencia informática que se centra en 
provocar en la máquina un comportamiento que si proviniera de un ser humano se 
diría que es inteligente. Uno de los objetivos de la inteligencia artificial es hacer que 
los ordenadores sean más útiles para todo el mundo. La investigación de la inteligen- 
cia artificial puede resultar también muy útil a la hora de ayudarnos a comprender 
nuestros propios procesos mentales. 

INTERPRETE: Convierte el programa escrito en un lenguaje de alto nivel (compren- 
sible para el humano) en un programa comprensible para el ordenador. 


KILOBYTE: Unidad de medida del lenguaje; un kilobyte (generalmente abreviado en K) 
equivale a 1.024 bits. 
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LENGUAJE DE ALTO NIVEL: Lenguaje de programación parecidos a la lengua del 
usuario (generalmente al inglés). Los lenguajes de bajo nivel están más cercanos a los 
lenguajes comprensibles para el ordenador. Como los lenguajes de alto nivel han 
de pasarse a una forma que el ordenador pueda comprender antes de procesarlos, su 
ejecución es más lenta que la de los lenguajes de bajo nivel. 

LENGUAJE DE BAJO NIVEL: Lenguaje parecido al utilizado en el ordenador. 

LENGUAJE MAQUINA: Es el escalón inferior al lenguaje de bajo nivel; es el lenguaje 
que el ordenador entiende directamente. 


MEMORIA: El mecanismo o mecanismos utilizados por el ordenador para guardar la 
información y los programas que se procesan, así como el conjunto de instrucciones 
que le indican a éste el modo de llevar a cabo el programa. Básicamente existen dos 
tipos de memoria (véase RAM y ROM). 

MEMORIA DINAMICA: Memoria que ha de recargarse continuamente con el fin de 
mantener sus contenidos. 

MEMORIA VOLATIL: Un mecanismo de memoria que pierde sus contenidos cuando 
se le corta la corriente. 

MICROPROCESADOR: El chip que hace de corazón del ordenador o de su parte 
pensante. 

MODEM: Siglas de MOdulator/DEModulator, mecanismo que permite que el ordena- 
dor se comunique con otro por medio del teléfono. 

MONITOR: a) una pantalla de televisión utilizada como unidad de display; carece de 
mandos de ajuste; b) la información que lleva el ordenador y que le permite com- 
prender y ejecutar las instrucciones del programa. 

MOUSE: Unidad de control, ligeramente más pequeña que un paquete de tabaco, que 
rueda sobre la mesa y mueve en sentido paralelo un cursor sobre la pantalla con el fin 
de seleccionar las diferentes opciones dentro del programa. Los Mouses funcionan, 
ya sea por la acción de sus ruedas o leyendo una cuadrícula en la superficie sobre la 
que se mueven. 


OCTAL: Sistema de numeración basado en el ocho (utilizando los números 0, 1, 2, 3, 
4,5,6 y 7). 


PALANCA DE MANDO: Generalmente utilizada en los programas de juegos, se trata 
de un mecanismo que introduce una señal en el ordenador; una señal que está rela- 
cionada con la posición que ocupa la palanca. 

PASCAL: Un lenguaje de alto nivel desarrollado a finales de los años sesenta por Ni- 
klaus Wirth y que anima a una programación disciplinada y estructurada. 

PILOT: Lenguaje de alto nivel que se suele utilizar para desarrollar los programas utili- 
zados en la educación. 

PONER A CERO (Reset): Señal que vuelve al ordenador al punto en el que estaba al 
encenderlo. 

PORT: Punto de entrada o salida mediante el cual se transfieren los datos. 

PROCESADOR DE TEXTOS (Word Processor): Un ordenador que da acceso a una 
“máquina de escribir inteligente”?con una amplia gama de posibilidades de ajuste y 
corrección (o un ordenador que opere un programa de proceso de textos). 
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PROGRAMA: Serie de instrucciones que sigue el ordenador para llevar a cabo una 
tarea determinada. 

PUNTO DE REFERENCIA (Benchmark): Prueba que se realiza para medir algún 
aspecto del funcionamiento del ordenador comparándola al resultado de ejecutar 
una prueba similar en otro ordenador. 


RAM: Siglas de Random Access Memory, es la memoria que permite al ordenador man- 
tener el programa en curso de ejecución. Los contenidos del RAM se pueden cam- 
biar, mientras que los del ROM no pueden cambiarse bajo el control del software. 

RED (Network): Grupo de ordenadores que funcionan juntos. 

REGULADOR (Buffer): Mecanismo de almacenaje que contiene la entrada mediante 
una tecla o similar, soltándola posteriormente según la frecuencia que le vaya dic- 
tando el ordenador. 

REFRESCO: Las memorias dinámicas han de recibir irrupciones periódicas de electri- 
cidad con el fin de mantener sus contenidos. La señal que recuerda .a la memoria 
cuáles son sus contenidos se llama señal de refresco. 

REGISTRO: Punto de la memoria del ordenador que contiene datos de uso frecuente. 

REPRESENTACIÓN: La particular organización de la información dentro del ordena- 
dor de modo que pueda ser manipulada por los sistemas de control de la base de 
datos o conocimiento. 

ROM (véase RAM). 

RS-232: Norma de conexión estándar que conecta un Modem, o el equipo asociado a la 
terminal, a un ordenador. 

S-100 BUS: Se trata también de una norma de conexión estándar (véase RS-232) hecha 
con 100 líneas de comunicación común paralelas que se utilizan para conectar los 
circuitos dentro de los microordenadores. 


SALIDA (Output): Todos los datos producidos por el ordenador mientras está proce- 
sando, ya aparezcan estos datos en la pantalla, ya los vierta a la impresora o los utili- 
ce internamente. 

SNOBOL: Lenguaje de alto nivel, desarrollado por los laboratorios Bell, que utiliza el 
reconocimiento de esquemas o dibujos y la manipulación de las cadenas. 

SEÑALIZADOR (Flag) (véase ““Bandera”). 

SISTEMA DE PROCESADO DE INFORMACION Y CONOCIMIENTOS: Se trata de 
los sistemas de ordenadores llamados de la Quinta Generación que se están desarro- 
llando actualmente en Japón (véanse las referencias a los libros The Fifth Generation 
y Fifth Generation Computer Sistems que aparecen en el apéndice de bibliografía). 

SISTEMA DEDUCTIVO: El mecanismo mediante el cual un programa llega a conclu- 
siones (véase el capítulo dedicado al APRENDIZAJE Y RAZONAMIENTO); algu- 
nos programas toman decisiones raídas y tajantes, otros operan en el mundo de la 
lógica complicada en la que se permite cierto grado de incertidumbre. 

SISTEMA “LLAVE EN MANO””: Generalmente utilizado en el mundo de los nego- 
cios, este sistema está preparado para ejecutar directamente y sólo hay que pulsar 
una tecla para que funcione. 

SOFTWARE ('logical””): Es el programa que ejecuta el ordenador. 
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SOFTWARE APLICADO: Programas escritos para la realización de tareas especiales, 
como el procesado de palabras o listas de correspondencia. 

SOFTWARE DE SISTEMAS: Secciones de códigos que llevan a cabo tareas adminis- 
trativas dentro del ordenador o ayudan en la escritura de otros programas, pero que 
no se usan para realizar la tarea que se quiere que ejecute el ordenador. 

SINTAXIS: Como en las lenguas humanas, la sintaxis es el conjunto de reglas estruc- 
turales que gobiernan el uso del lenguaje en el ordenador. 

SUBRUTINA: Parte del código, o programa, a la que se llama un número determinado 
de veces durante la ejecución del programa. 


TECLADO HEX (Hex Pad): Teclado, parecido al de una calculadora, que se usa para 
introducir directamente los números hexadecimales. 

TECLADO NUMERICO (Numeric Pad): Mecanismo utilizado para introducir infor- 
mación numérica en el ordenador, parecido al teclado de una calculadora. 

TIEMPO REAL: Cuando una acción realizada en el ordenador progresa paralelamente 
al tiempo del “mundo real””, se dice que la acción ocurre en tiempo real. Un ejemplo 
sería un programa que mostrara el desarrollo de una colonia de bacterias que se 
reprodujeran con el mismo ritmo de crecimiento con que lo haría una colonia real. 
Ultimamente han aparecido muchos juegos que requieren reacciones en tiempo 
real. La mayoría de las máquinas de los salones recreativos transcurren en tiem- 
po real. 


UNIDAD CENTRAL DE PROCESADO: Es el corazón del ordenador, en donde se 
llevan a cabo las funciones aritméticas, lógicas y de control. 


VLSI: Siglas que significan “integración de componentes a gran escala”? en un chip. Se 
está desarrollando esta técnica en Japón y Estados Unidos y su objetivo es conseguir 
chips con el equivalente a 10 millones de transistores (los chips fabricados actualmen- 
te contienen el equivalente a medio millón de transistores como máximo). 
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4 
Programas 


para el ZX Spectrum 


TICTAC 


10 REM ** TIC TAC +. 

15 INK 7: PAPER 12 FLASH Oz BR 
IGHT O: BORDER 1 

20 GO SUB 1180: REM INICIALIZA 
CION 

30 REM %*%* REQUISITOS PREVIOS 
AL JUEGO ** 

40 FOR J=1 TO 9 

50 LET A(J)=32 

60 NEXT J 

70 FOR J=1 TO 5 

80 LET D(J)>=0 

90 NEXT J 

100 LET COUNT=0 

110 LET Rs$="" 

120 GO SUB 1070: REM TABLERO 

130 REM *x*%* CICLO PRINCIPAL +, 

140 GO SUB 540: REM MOVIMIENTO 
DE LA MAQUINA 

150 GO SUB 1070: REM TABLERO 

1650 GO SUB 870: REM COMPRUEBA L 
A VICTORIA 

170 IF R$<>"" THEN GO TO 240 

180 GO SUB 980: REM ACEPTAR MOV 
IMIENTO HUMANO 

190 GO SUB 1070: REM TABLERO 

200 GO SUB 870: REM COMPRUEBA L 
A VICTORIA 


210 IF R$="W" THEN GO TO 140 

220 REM **FIN CICLO PRINCIPAL** 

230 REM 3634361611 10 0H 26 II MIE III IE Id 

240 REM FIN DEL JUEGO 

250 GO SUB 1070: REM TABLERO 

260 PRINT 2 PRINT 

270 IF R$="9wW" THEN PRINT TAB 8 
¿"YO GANO": FOR G=1 TO 4: BEEP . 
2,5: BEEP .1,10: BEEP .4,9:: NEX 
T G: LET FLAG=-1: GO TO 1370 

280 IF R$="L" THEN PRINT TAB 8 
¿"TU GANAS": FOR G=1 TO 16 STEP 
2: BEEP .1,6: BEEP .1,6+2: NEXT 
G: LET FLAG=1: GO TO 1370 

290 IF R$="D" THEN PRINT TAB 8 
3 "TABLAS": FOR G=:1 TO 4: BEEP .2 
,5: BEEP .1,6: BEEP .4,9: NEXT G 
: LET FLAG=0: 60 TO 1370 

300 REM ACTUALIZACION DE LA BAS 
E DE DATOS 

310 FOR B=1 TO 5 

320 FOR J=2 TO 9 

330 IF M(J)=D(B) THEN GO SUB 3 
70 

340 NEXT J 

350 NEXT B 

360 GO TO 430 
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370 REM REORDENACION DE LOS ELE 
MENTOS DE LA MATRIZ M 

380 LET TEMP=M(J+FLAG) 

390 LET M(J+FLAG)=M2M(J) 

400 LET M(J)=TEMP 

410 LET J=9 

420 RETURN 

430 PRINT : PRINT 

440 PRINT "ESTA ES MI PRIORIDAD 
ACTUALIZADA" 

450 PRINT : PRINT 

450 FOR J=1 TO 9 

470 PRINT M(J)53" "; 

480 NEXT J 

490 PRINT : PRINT 

500 PRINT "PULSE ""ENTER"" PARA 
CONTINUAR" 

510 INPUT AS 

520 GO TO 120 

540 REM MOVIMIENTO DE LA MAQUIN 
A 

550 LET P=CODE "O" 

560 LET X=0 

570 LET J=1 

580 IF A(W(J))=A(W(J+1)) AND A( 
W(J+2))=32 AND A(W(J))=P THEN L 
ET X=W(J+2): GO TO 750 

590 IF A(W(J))=A(W(J+2)) AND A( 
W(J+1))=32 AND A(W(J))=P THEN L 
ET X=W(J+1): GO TO 750 

600 IF A(W(J+1))=A(W(J+2)) AND 
A(W(J))=32 AND A(W(J+1))=P THEN 
LET X=W(J): GO TO 750 

610 IF J<21 THEN LET J=3+3: GO 
TO 580 

620 IF P=CODE "0" THEN LET P=C 
ODE "X":z GO TO 570 

630 REM +** SI NO GANA SE BUSCA 
UN MOVIMIENTO DE BLOQUEO +. 

640 REM * ENTONCES SE USA LA SI 
GUIENTE SECCION *+* 

650 LET J=1 

660 IF A(M(J))=32 THEN LET X=M 
(3): 60 TO 750 

670 1F JX10 THEN LET J=J+1: GO 
TO 660 

680 LET H=0 

690 LET H=H+1 

700 LET X=INT (RND*9)+1: IF A(X 
)=32 THEN GO TO 750 

710 IF Hx<100 THEN GO TO 690 
720 LET R$="D": REM ES UN DIBUJ 
[a] 

750 REM HACER MOVIMIENTO 

760 LET A(X)=CODE "O" 

770 LET COUNT=COUNT+1i 

780 LET D(COUNT)=X 

790 LET FLAG=0 
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800 FOR J=1 TO 9 

810 IF A(J)=32 THEN LET FLAG=1 
820 NEXT J 

830 IF FLAG=0 AND R$="" THEN L 
ET R$="D" 

840 REM SI TODAS LAS POSICIONES 
ESTAN LLENAS, Y NO ESTA ASIGNAD 
O R$, ES UN DIBUJO 

850 RETURN 

860 REM 44996423696 H HI MIEIAE 

870 REM COMPRUEBA LA VICTORIA 


880 LET J=1 
890 IF A(W(J))=32 THEN LET J=J 
+3 


900 IF J>23 THEN RETURN 

910 IF A(W(J))=A(W(J+1)) AND A( 
W(J))=A(W(J+2)) THEN GO TO 940 
920 IF J<22 THEN LET J=J+3:2 GO 

TO 890 

930 RETURN 

940 IF A(W(J))=CODE "0" THEN L 
ET R$="W": REM GANA LA MAQUINA 
950 IF A(W(J))=CODE "X" THEN L 
ET R$="L": REM PIERDE LA MAQUINA 


960 RETURN 

970 REM 443616333636 I RIMA 

980 REM MOVIMIENTO HUMANO 

990 PRINT : PRINT 

1000 PRINT "Entre su movimiento. 
" 


1010 INPUT MOVE 

1020 IF MOVE<1 OR MOVE>9 THEN 6 
O TO 1010 

1030 IF A(MOVE)<>32 THEN GO TO 
1010 

1040 LET A(MOVE)=CODE "Xx" 

1050 RETURN 

1060 REM 34-146 36 36-26 16-36 3-26 36 16 16-26-36 226 II 1036 
1070 REM TABLERO 

1080 CLS 

1090 PRINT : PRINT : PRINT 

1100 PRINT "1 2 22 3 "¡5CHR$ A 
(1905" 2: "3CHR$ A(2)53" : "5CHR$ A 
(3) 


1110 PRINT "--=-======= ===" 
1120 PRINT "4 2: 5: 6 "5CHR$ A 
(4093" 2: "¡3CHR$ A(S)5" : "5CHR$ A 
(6) 

1130 PRINT "--=-=-====== ===> 


1140 PRINT "7 : 8 : 9 "5CHR$ A 
(7)35" 2: "5CHR$ A(8)3" : "¡5CHRS$ A 
(9) 

1150 PRINT 

1160 RETURN 

1170 REM 32636363 2636 36 36-36 36-36-36 36-36-4361 36-36-3636 


1180 REM INICIALIZACION 

1190 CLS 

1200 DIM A(9): REM TABLERO 

1210 DIM M(10): REM ACCESO A LA 
BASE DE DATOS 

1220 DIM W(24): REM DATOS DE VIC 
TORIA O BLOQUEO 

1230 DIM D(5): REM ACCESO AL MOV 
IMIENTO EN EL JUEGO ACTUAL 

1240 REM DATOS DE VICTORIA O BLO 
QUEO 

1250 FOR J=1 TO 24 

1260 READ W(J) 

1270 NEXT J 


1280 DATA 1,2,3,4,5,6,7,8,9 
1290 DATA 1,4,7,2,5,8,3,6,9 
1300 DATA 1,5,9,3,5,7 

1310 REM BASE INICIAL DE DATOS 


1320 FOR J=1 TO 10 

1330 READ M(J) 

1340 NEXT J 

1350 DATA 2,6,8,4,7,3,1,9,5,2 
1360 RETURN 

1370 PRINT : PRINT 

1380 PRINT "SI QUIERES JUGAR OTR 
A VEZ" 

1390 PRINT "ENTRA ""S"" Y PULSA 
UNT] ENTER .<... 


1395 PRINT : PRINT 

1400 PRINT "SI NO, PULSA SOLO "" 

ENTER ... 

1410 INPUT R$ 

1420 IF R$="S" THEN GO TO 30 
1430 CLS 

1500 STOP 

4000 REM 364623636 36-26-26 263-266 IMII INR 

MNR IE III RE MEME MIRRA TIEM IE 

4050 REM %** PARA JUGAR CONTRA UN 
OPONENTE QUE ACTUE DE MANERA AL 

EATORIA 

4100 REM SE DEBE CAMBIAR LA LINE 

A 140 POR "GOSUB 4500” 

4200 REM DE ESTE MODO SE ENTRA E 
N LA SIGUIENTE SUBRUTINA 

4500 REM MOVIMIENTO ALEATORIO DE 
UNA PERSONA 

4510 LET H=0 

4520 LET H=H+1 

4530 LET MOVE=INT (RND*9+1) 

4540 IF A(MOVE)=32 THEN LET A(M 
OVE)=CODE "0": RETURN 

4550 IF H<100 THEN GO TO 4520 
4560 LET R$="D" 

4570 RETURN 
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SILOGISMOS 


10 REM +%% SILOGISMOS es 
15 POKE 23658,200:2 FLASH Oz BR 


IGHT O: CLS : PAPER 1: BORDER 1: 
7 
20 GO SUB 1050: REM INICIALIZA 


30 PRINT : INPUT AS$ 

35 LET 0Q$=A$ 

40 IF A$="?" THEN GO TO 910 

SO IF LEN A$<2 THEN STOP 

60 LET FLAG=0 

70 REM ADVIERTA QUE HAY UN ESP 
ACIO EN BLANCO ANTES DE CERRAR C 
OMILLAS EN LAS PROXIMAS 5 LINEAS 

80 IF A$( TO 3)="ES " THEN GO 
TO 480 

85 IF AS$S( TO 3)="EL " THEN LE 
T A$=A$(4 TO ) 

90 IF A$( TO 3)="LA " THEN LE 
T A$=A$(4 TO ) 

100 IF A$( TO 3)="UN " THEN LE 
T A$=A$(4 TO ) 

110 IF A$( TO 4)="UNA " THEN L 
ET A$=AS$ (5 TO ) 

120 LET X=LEN AS$ 

130 LET N=0 

140 LET N=N+1 

150 IF A$(N)=" " THEN LET B$=A 
$( TO N-1): GO TO 180: REM EXTRA 
E EL PRIMER NOMBRE 

160 IF N<X THEN GO TO 140 

170 INK 5: PRINT "NO COMPRENDO" 
2 INK 7: GO TO 30 

180 LET k=4 

190 IF A$(N+1 TO N+2)="F" THEN 

LET k=5 

200 LET C$=A$(N+K TO ): REM PRE 
PARATIVOS DE LA FRASE 

210 REM ELIMINACION DE ARTICULO 
s 

220 IF C$( TO 4)="UNA " THEN L 
ET C$=C$(5 TO ) 

225 IF C$( TO 3)="UN " THEN LE 
T C$=C$(4 TO ) 

230 IF C$( TO 3)="EL " THEN LE 
T C$=C$(4 TO ) 

235 IF C$( TO 3)="LA " THEN LE 
T C$=C$(4 TO ) 

240 REM *ALMACENA INFORMACION 

250 REM ** PRIMERO SE COMPRUEBA 

SI SE PUEDE ENCONTRAR UN SUJETO 
ANTES DE UN ESPACIO EN BLANCO ++ 

260 LET N=0 

270 LET N=N+1 


242 


280 IF Z$(1,N, TO LEN B$)=B$ TH 
EN GO TO 320: REM EXISTE UN SUJ 
ETO AL PRINCIPIO DE LA FRASE 

290 IF Z$(1,N, TO 5)=" " TH 
EN LET Z$(1,N)=B$: GO TO 320 

300 IF N<25 THEN GO TO 270 

310 INK 2: PRINT "NO ME QUEDA E 
SPACIO PARA ALMACENAR MAS SUJETO 
S": INK 7 

320 REM ** EL PROGRAMA HA LLEGA 
DO AQUI CON EL SUJETO ENCABEZAND 
O EL ALMACENAMIENTO es 

330 REM *x* AHORA SE PONE EL OBJ 
ETO DIRECTO DEBAJO DE EL +*e 

340 LET k=0 

350 LET K=K+1 

360 IF Z$(K,N, TO LEN C$)=C$ TH 
EN GO TO 400: REM LA INFORMACIO 
N YA HA SIDO ALMACENADA DEBAJO D 
EL ENCABEZAMIENTO 

370 IF Z$(K,N, TO 5)=" " TH 
EN LET Z$(K,N)=C$: GO TO 400 

380 IF k<25 THEN GO TO 350 

390 INK 5: PRINT "NO TENGO MAS 
ESPACIO PARA ALMACENAR OBJETOS D 
IRECTOS. "2 INK 7 

400 IF FLAG=1 THEN PRINT 0$: 1 
NK 5: PRINT TAB 63">DE ACUERDO<" 
2 INK 7: GO TO 30: REM SE HA REA 
LIZADO EL INTERCAMBIO 

410 REM %%* AHORA SE INTERCAMBIA 
N EL OBJETO Y EL SUJETO Y SE ALM 
ACENA DE NUEVO es 

420 LET FLAG=1 

430 LET M$=BS$ 

440 LET B$=C$ 

450 LET C$=M$ 

460 GO TO 250 

470 REM 34363646 26-26-3636 16-16 46 16-26 4636-4036 

480 REM %x CONCLUSIONES *x%* 

490 REM ** PRIMERAMENTE SE FRAG 
MENTA LA FRASE x+%* 

500 LET H$=A$: LET A$=A5$ (4 so ) 
2 REM SE IGNORA "ES" 

510 IF A$( TO 4)="UNA " THEN L 
ET A$=A$(S5S TO ): REM SE IGNORA " 
UNA" 

520 IF A$( TO 3)="EL " OR A$S( T 
O 3)="UN ”" OR A$( TO 3)="LA " TH 
EN LET A$=A$(4 TO ): REM SE IGN 
ORA ” EL UU) , " UN " 5] ”» LA 1) 

530 REM %+%* SE COGE LA PRIMERA P 
ALABRA - F% xx 

540 LET X=LEN A$ 


550 LET N=0 

560 LET N=N+1 

570 IF AS(N)=" " THEN LET FS=A 
$( TO N-1): GO TO 600 


580 IF NX<X THEN GO TO 560 

590 PRINT TAB 63 INK 5;"NO LO C 
OMPRENDO": GO TO 30 

600 REM ** AHORA SE COGE LA SEG 
UNDA PALABRA -— S$ 1. 

610 LET S$=A$(N+4 TO ) 

620 IF LEN S$<=0 THEN GO TO 63 
Lo] 

621 IF S$(1)=" " THEN LET S$=S 
$(2 TO ): REM IGNORA OTRO ESPACI 
O SI ES "UNA" 

630 PRINT H$*>TAB 93 INK 5; "(EST 
OY BUSCANDO *"3F$3"”)" 

640 LET X=0 

650 LET X=X+1 

660 IF 2$(1,X, TO LEN F$)=F$ TH 
EN PRINT TAB 105 INK 55" (ENCONT 
RADO EN 1,"3X3")"z GO TO 700 

670 IF X<25 THEN GO TO 650 


680 PRINT TAB 63 INK 53"NO PUED 
O ENCONTRAR EL SUJETO": PRINT TA 
B 9Fs 

690 GO TO 30 

700 LET Y=1 

710 LET Y=Y+1 

720 IF Z$(Y,X)=S$ THEN —INK S2 
PRINT TAB 63"> SI"z INK 72: GO T 
O 30 

730 IF Y<25 THEN GO TO 710 

740 LET Y=1 

750 LET Y=Y+1 

760 LET P$=Z$ (Y, X) 

770 LET M=0 

780 LET M=M+1 


790 1F Z$(1,M)=P$ THEN GO TO 8 
30 

800 IF M<25 THEN GO TO 780 
810 IF Y<25 THEN GO TO 750 
820 PRINT TAB 63 INK 53”> NO"z 
GO TO 30 

830 LET Q=1 

840 LET Q=0+1 

850 IF Z$(Q0,M, TO LEN S$)=S$ TH 
EN PRINT TAB 65 INK 55"> SI": G 
O TO 30 

860 1F Q4<25 THEN GD TO 840 

870 IF M<25 THEN GO TO 780 

880 GO TO 8620 

900 REM III ICI IAEA 
910 REM COMPRUEBA EL CONTENIDO 

DE UN ARCHIVO PARTICULAR 

920 INK 5: INPUT "QUE SUJETO SE 
VA A COMPROBAR? "3H 

930 INK 72 LET T=0 

940 LET T=T+1 

950 IF Z$(1,T1, TO LEN H$)=H$ TH 
EN GO TO 990 

960 IF T<25 THEN 60 TO 940 

970 PRINT INK 55"NO TENGO DATO 
S ALMACENADOS EN "3HS$ 

980 GO TO 30 


990 LET K=1 

1000 LET K=k+1 

1010 IF Z$(K,T, TO 5)<>" "7 
HEN PRINT  INK 55K3" "5T5" "5Z6 
(K, T) 


1020 IF K<25 THEN 60 TO 1000 
1030 GO TO 30 

1040 REM 3336369669635 IE II II IA AAA 
1050 REM ** INICIALIZACION *x 
1060 CLS 

1080 DIM 2$(25,25,27) 

1090 RETURN 
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RISITAS 


10 REM %* RISITAS ++. 

15 POKE 236558,200: BRIGHT O: F 
LASH O: INK 7: PAPER 1: BORDER 1 

20 GO SUB 2070: REM INICIALIZA 


30 GO SUB 1760: REM PINTAR TAB 


40 REM ** COMIENZO CICLO PRINC 
IPAL ** 

SO GO SUB 190: REM MOVIMIENTOS 
DE LA MAQUINA 

60 GO SUB 1760: REM PINTAR TAB 
LERO 

70 IF CS>4 THEN GO TO 120 

80 GO SUB 1950: REM ACEPTAR MO 
VIMIENTO HUMANO 

90 GO SUB 1760: REM PINTAR TAB 


100 IF HS<=5S THEN GO TO 50 
110 REM 3636363623616 36-36-3626 36 36-26 36 36 36 26 1636 


120 REM FIN DEL JUEGO 

130 PRINT : PRINT "FIN DEL JUEG 
o" 

140 PRINT 


150 IF HS>CS THEN FOR I=1 TO 2 
2 STEP 2: BEEP .1,l: BEEP .1,1+2 
: BEEP .2,4: NEXT l: PRINT FLAS 
H 13 INK 13 PAPER 73" >> ME HAS 

GANADO <<  " 

160 IF CS>HS THEN FOR I=20 TO 
5 STEP -1.5: BEEP .2,1: BEEP .3, 
1+2: NEXT Il: FOR I=1 TO 4: BEEP 
.1,3: BEEP .2,-1: NEXT l: BEEP 2 
,20: PRINT FLASH 15 INK 23 PAPE 
R 03" «exx* YO SOY EL GANADOR 
AA 

170 STOP 

180 REM 446-3636 36 46-36 36-36 36-36 36-36 36-33 AHH HE Ie 

190 REM MOVIMIENTO MAQUINA 

200 REM 3362 16 16-16-16 16-36 26 36 36 26-46-46AE IIA IAE 

210 REM BUSCAR CAPTURAS 
220 LET GSAFE=0: REM PARA CONTA 
R LAS BUENAS Y SEGURAS CAPTURAS 
QUE AMENAZAN LAS PIEZAS HUMANAS 

230 LET CSAFE=0: REM PARA CONTA 
R LAS CAPTURAS SEGURAS QUE NO AM 
ENAZAN LAS FICHAS 

240 LET CCAPTURE=0: REM PARA CO 
NTAR OTRAS CAPTURAS ENCONTRADAS 

250 FOR J=1 TO 3 

260 LET G(J)=0: REM VACIO, ALMA 
CENAR CAPTURA SEGURA 

270 LET S(J)=0 
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280 LET T(J)=0: REM VACIO, OTRA 
CAPTURA SEGURA 

290 NEXT J 

300 FOR J=80 TO 30 STEP -10 

310 FOR K=1 TO 8 

320 IF A(J+K)<>C THEN GO TO 39 
O: REM OMITIR LA EVALUACION SI N 
O HAY NINGUNA PIEZA DE LA MAQUIN 
A AHI 

330 REM *+* CAPTURA A LA DERECHA 

.. 

340 LET X=J+K-9: LET Y=J+K-18: 
LET Z=J+K-27: LET M=-11 

350 IF A(X)=H AND A(7)=B THEN 
GO SUB 700: REM CAPTURA ENCONTRA 
DA 

360 REM +%* CAPTURA A LA IZQUIER 
DA *+* 

370 LET X=J+kK-11:3 LET Y=J+K-22: 
LET Z=J+K-33: LET M=-9 

380 IF A(X)=H AND A(Y)=B THEN 
GO SUB 700: REM CAPTURA ENCONTRA 
DA 

390 NEXT K 

400 NEXT J 

410 IF GSAFE+CSAFE+CCAPTURE=0 T 
HEN (GO TO 980: REM CAPTURA NO E 
NCONTRADA 

420 REM %** AHORA ESCOGE LA CAPT 
URA A HACER 3% 

430 PRINT : FOR I=1 TO 10: BEEP 
.3,1: BEEP .2,12: NEXT 1: PRINT 
TAB 8;3">> CAPTURA ENCONTRADA" 
440 PAUSE 400 

450 IF GSAFE<>0 THEN GO TO 500 
460 IF CSAFE<>0 THEN GO TO 670 
470 REM ** ELECCION DE CAPTURAS 
GENERALES ++ 

480 LET MOVE=T (INT (RND*CCAPTUR 
E)+1) 

490 GO TO 540 

500 REM ELIGE 

510 REM SELECCION DE MOVIMIENTO 
S ALMACENADOS 

520 LET MOVE=G(INT (RND*GSAFE) + 


530 REM +%% MOVER +x* 

540 LET START=INT (MOVE/100) 
550 LET ED=MOVE-100*START 
560 LET A(START)=B 

570 LET A(START-ED)=B 

580 LET A(START-2*ED)=C 

590 LET CS=CS+1 


600 REM * COMPROBAR PARA PUNTUA 
CION ADICIONAL SI CAE FICHA EN F 
ILA TRASERA + 

610 IF START-2*ED>18 THEN RETU 
RN 

620 LET A(START-2x*ED)=B 

630 LET CS=CS+1 

640 PRINT "HE CAPTURADO Y DEJAD 
O EN "5START-2*ED5" EN LA FILA D 
E ATRAS" 

650 PAUSE 600 

660 RETURN 

670 REM ** CAPTURA SEGURA ++ 

680 LET MOVE=S (INT (RND+*C 
SAFE) +1) 

690 GO TO 540 

700 REM %** COMPROBAR CAPTURA PR 
OPUESTA PARA SEGURIDAD *+* 

710 REM +*%* COMPROBAR CUADRADO D 
E ABAJO EN LA MISMA DIRECCION QU 
E EL PROPOSITO DEL MOVIMIENTO +. 


720 PRINT J+K3" A "3Y3" CAPTURA 
NDO EN "3X 

730 PAUSE 400 

740 1F A(Z)=H THEN GO TO 920: 
REM ALMACENAR COMO UNA NUEVA CAP 
TURA SEGURA 

750 REM ** COMPROBAR CUADRADO E 
N LA OTRA DIRECCION DEL PROPOSIT 
O DEL MOVIMIENTO *+%* 

760 IF A(Y+M)=H AND A(Y-M)=B TH 
EN GO TO 920 

770 REM AHORA COMPRUEBA SI DEJA 
RA UNA PIEZA EXPUESTA AL MOVER 
780 IF A(J+K+M)=H AND A(J+K+2%M 
)=H THEN GO TO 920 

790 REM ** SI SE ALCANZA ESTE 
PUNTO, ENTONCES CAPTURA SEGURA + 
800 REM +%*%* ALMACENA ESTE MOVIMI 
ENTO ++ 

810 LET CSAFE=CSAFE+1 

820 LET S(CSAFE)=100+ (J+K) +20+M 
830 REM %+* MIRA A VER SI ES UN 
BUEN MOVIMIENTO 

840 LET CHECK=GSAFE 

850 IF Y+2*M<1 THEN RETURN 

860 IF A(Y+M)=H AND A(Y- (20+M) ) 
<>B AND A(Y+2*M)=B THEN LET GSA 
FE=GSAFE+1 

870 IF CHECK=GSAFE THEN RETURN 
2: REM *%* ESTE NO ES UN BUEN MOV 
IMIENTO ++* 

880 REM * ALMACENAR BUEN MOVIMI 
ENTO * 

890 PRINT "ESTOY CONSIDERANDO " 
3J+K53" A "¿M+20+J+K 

900 LET G(GSAFE) =100+* (J+K) +20+M 
910 RETURN 


920 REM ALMACENAR CAPTURA NO SE 
GURA 

930 LET CCAPTURE=CCAPTURE+1 

940 PRINT "ESTOY CONSIDERANDO " 
3J+K53" A "53M+20+J+K 

950 LET T(CCAPTURE)=100+* (J+K) +2 
0+M 

960 RETURN 

A E A 
980 REM * MOVER PARA PROTEGER P 
IEZAS BAJO AMENAZA *x* 

990 LET MOVE=0 

1000 LET J=80 

1010 LET K=1 

1020 LET Q=J+K 

1030 IF A(Q)<>C THEN GO TO 1110 
2 REM NO CONSIDERAR ESTE CUADRAD 
O, NO MOVIMIENTO COMP 

1040 IF A(Q+9)=B AND A(Q-9)=H AN 
D A(Q+18)=C THEN LET MOVE=100+* ( 
Q+18) +0+9 

1050 REM EJECUCION ALEATORIA EN 
CASO DE EXPOSICION DE OTRA 

1060 IF MOVEX<>0 AND A(Q-2)=H AND 
A(Q+20)=B AND RND>.5 THEN GO T 
oO 1510 

1070 IF A(Q+9)=B AND A(Q-9)=H AN 
D A(Q+20)=C THEN LET MOVE=100+* ( 
Q+20)+0+9: GO TO 1510 

1080 IF A(Q+11)=B AND A(Q-11)=H 
AND A(Q+22)=C THEN LET MOVE=100 
* (Q+22)+0+11 

1090 IF MOVE<>0 AND A(Q+2)=H AND 
A(Q+22)=B AND RND>.5 THEN GO T 


O 1510 

1110 IF K<8 THEN LET K=K+1: GO 
TO 1020 

1120 IF J>10 THEN LET J=J-10: G 
O TO 1010 


1130 REM 40162696460 3 36 16H 46 HEM HIE IIA 

1140 REM %*x* NO ENCONTRADA CAPTUR 

A. BUSCAR MOVIMIENTO PARA "DESAP 

ARECER" EN LA FILA DE ATRAS e 

VAIS MIE IMM EM II IE EI IE EI EI DE DE 6 IE dE 

1150 LET MOVE=0 

1120 REM MOVIMIMIENTO INDESEABLE 

. SUSTITUIR POR OTRO MEJOR 

1170 IF A(22)=C AND A(11)=B THEN 
LET MOVE=22 

1180 IF A(28)=C AND A(17)=B THEN 
LET MOVE=28 

1190 IF A(22)=C AND A(13)=B THEN 
LET MOVE=22 

1200 IF A(26)=C AND A(17)=B THEN 
LET MOVE=26 

1210 IF A(26)=C AND A(15)=B THEN 
LET MOVE=26 

1220 IF A(24)=C AND A(15)=B THEN 
LET MOVE=24 
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1230 IF A(24)=C AND A(13)=B THEN 
LET MOVE=24 

1240 IF MOVE=0 THEN GO TO 1310 

1250 PRINT : PRINT INK 45 BRIGH 

T 15"ESTOY MOVIENDO SOBRE LA LIN 

EA TRASERA DESDE ";MOVE 

1260 PAUSE 500 

1270 LET A(MOVE)=B 

1280 LET CS=CS+1 

1290 RETURN 

1300 REM 44-13263164-3 3616-2626 36 I0-40 III NR 

1310 REM MOVIMIENTOS NO SEGUROS 

1320 LET CMOVE=0: REM %%* CUENTA 

MOVIMIENTOS ENCONTRADOS +% 

1330 FOR J=80 TO 30 STEP -10 

1340 FOR J=1 TO 8 

1350 IF A(J+K)<>C THEN GO TO 14 

60 

1360 LET X=J+K-9: LET Y=J+K-18: 

LET Z=J+K-20 

1370 LET Q=J+K+2 

1380 IF A(X)<>B THEN GO TO 1440 

1390 IF A(Y)=H OR A(Z)=H AND A(Q 

)=B THEN GO TO 1460 

1400 GO SUB 1540 

1410 LET X=J+K-112 LET Y=kK+J-22: 
LET Z=J+K-20 

1420 LET Q=J+Kk-2 

1430 IF A(X)<>B THEN GO TO 1460 

1440 IF A(Y)=H OR A(Z)=H AND A(Q 

)=B THEN GO TO 1460 

1450 GO SUB 1560 

1460 NEXT K 

1470 NEXT J 

1480 IF CMOVE=0 THEN GO TO 1630 

1490 REM *% MOVER *%x%k 

1500 LET MOVE=T(INT (RND*CMOVE) + 


1510 LET START=INT (MOVE/100) 
1520 LET ED=MOVE-100*START 

1530 LET A(START)=B 

1540 LET A(ED)=C 

1550 RETURN 

1560 REM %* ALMACENA MOVIMIENTO 


1570 LET CMOVE=CMOVE+1 

1580 PRINT "ESTOY CONSIDERANDO " 
5J+K;3 .” A E EOS 

1590 PAUSE 400 

1400 LET T(CMOVE)=100% (J+K)+X 
1610 RETURN 

1620 REM 06 III IMA 
1630 REM MOVIMIENTO ALEATORIO DE 
NO CAPTURA 

1540 INK 6: PRINT "BUSCANDO MOVI 
MIENTO ALEATORIO LEGAL" 

1650 INK 7: LET L=0 

1660 LET L=L+1 

1570 LET J=10*INT (RND*8+1) 
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16580 LET K=INT (RND+*8+1) 

1590 IF A(J+K)=C THEN GO TO 172 
0] 

1700 IF L<200 THEN GO TO 1460 
1710 PRINT : FOR I=1i TO 4: BEEP 
.3,1: BEEP .2,1+10: BEEP .3,1+5: 
NEXT I: PRINT "ABANDONO": STOP 
1720 IF A(J+kK-9)=B THEN LET MOV 
E=100+* (J+K)+J+K-9: GO TO 1510 
1730 IF A(J+kK-11)=B THEN LET MO 
VE=100% (J+K)+J+K-11: GO TO 1510 
1740 GO TO 1700 

1750 REM 463636364636 36 3336336 61H M6 IE III 
1760 REM PINTAR TABLERO 

1770 CLS 

1780 PRINT 

1790 PRINT — INK 65 BRIGHT 15"MAQ 

UINA "3 FLASH 1;CS;3 FLASH 03" 
HUMANO "3 FLASH 1;HS 

1800 PRINT 
1810 PRINT " 
1820 PRINT " 
1830 FOR J=80 TO 10 STEP -10 
1840 PRINT " "53/10; 

1850 FOR K=1 TO 8 

1860 INK 4: PRINT PAPER 55 INK 
O¿CHR$ (A(J+K))35 
1870 NEXT K 
1875 INK 7 

1880 PRINT J/10 
1890 NEXT J 

1900 PRINT " 
1910 PRINT " 
1920 PRINT 

1930 RETURN 
1940 REM 40646 6 6 6 6 00d dd 6 dd dd 6 A 161 
1950 REM x** ACEPTAR MOV HUMANO + 
1955 REM 346962621626 46 96 36 12-46 96 36 M6 M6 21 46 36 46 
1960 INPUT "MUEVE DESDE "5START 
1970 IF A(START)<H THEN GO TO 1 
960 

1980 INPUT "HASTA "ED 

1990 PRINT ”?”3 BRIGHT 13"DESDE " 
¿START;5",HASTA "3ED: IF A(ED)<>B 
OR ABS (START-ED)>11 AND A((STA 
RT+ED)/2)<>C THEN GO TO 1980 
2000 LET A(START)=B 

2010 LET A(ED)=H 

2020 IF ABS (START-ED)>11 THEN 
LET A((START+ED) /2)=B: LET HS=HS 
+1: BEEP .3,7: BEEP .2,6: BEEP 1 
s15: PRINT  INK 73 BRIGHT 15 PAP 

ER 03 FLASH 13" BIEN HECHO " 

2030 IF ED>80 THEN LET A(ED)=B: 
LET HS=HS+1: PRINT "UNO MAS PAR 

A TI" 

2040 PAUSE 100 

2050 RETURN 

2060 REM 3136346 96 262636 36 Hd 6 E HE MEME 


12345678 


12345678 " 


2070 REM *%%* INICIALIZACION 3% 
2080 REM 4636-16 16H 166 IE III 
2090 CLS 

2100 RANDOMIZE 

2110 DIM A(110): REM TABLERO Y E 
SPACIOS BLANCOS ALREDEDOR Y DELA 
NTE DE EL 

2120 DIM G(3): REM BUENA CAPTURA 
SEGURA ALMACENADA 

2130 DIM S(3): REM ALMACENA CAPT 
URA SEGURA 

2140 DIM T(18): REM OTRAS CAPTUR 
AS ALMACENADAS. TAMBIEN USADO PA 
RA MOVIMIENTOS SEGUROS SIN CAPTU 
RA 


2150 LET E=CODE " ": REM CUADRAD 
O BLANCO 
21650 LET B=CODE ".": REM CUADRAD 
O NEGRO 


2170 LET C=CODE "C": REM PIFZA D 
E LA MAQUINA 

2180 LET H=CODE "H": REM PIEZA H 
UMANA 

2190 LET HS=0: REM PUNTUACION HU 
MANA 

2200 LET CS=0: REM PUNTUACION DE 
LA MAQUINA 


2210 RESTORE 2290: REM ESTABLECE 
R TABLERO AL PRINCIPIO 

2220 FOR J=10 TO 80 STEP 10 

2230 FOR K=1 TO 8 

2240 READ X: LET A(J+K)=X 

2250 NEXT K 

2260 NEXT J 

2270 RETURN 

2280 REM 433696 36-16-1616 26-26-1633 36-36-46 4IE MAH 
2290 DATA 72,32,72,32,72,32,72,3 
2 

2300 DATA 32,72,32,72,32,72,32,7 
2 

2310 DATA 46,32,46,32,46,32,46,3 
2 

2320 DATA 32,46,32,46,32,46,32,4 
6 


2330 DATA 46,32,46,32,46,32,46,3 
2 
2340 DATA 32,46,32,46,32,46,32,4 
6 
2350 DATA 67,32,67,32,67,32,67,3 
2 


2360 DATA 32,67,32,67,32,67,32,6 
7 
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BLOQUELANDIA 


10 REM %x* BLOQUELANDIA ++ 

15 FLASH O: PAPER 1: BORDER 1: 
INK 7: BRIGHT 1 

20 GO SUB 2470: REM INICIALIZA 


30 REM ** IMPRIMIR EL CUADRADO 


40 INK 4: CLS 2: PRINT : PRINT 

50 FOR X=5 TO 1 STEP -1 

60 PRINT TAB 8; 

70 FOR I=1 TO 6 

80 PRINT  INK 03 PAPER 3;CHR$ 
(A, 1))3 

90 NEXT 1 

100 PRINT 

110 NEXT X 

120 INK 72 PRINT 2 PRINT 

125 BEEP 1,15: FOR I=1 TO 5: BE 
EP .1,l: NEXT 1 

130 INPUT A$: LET AS=A$+" 


140 PRINT A$: PRINT 

150 IF LEN A$=16 THEN STOP 2: R 
EM TERMINA LA EJECUCION EN VEZ D 
E TENER QUE PRESIONAR LA TECLA " 
ENTER" 

160 IF A$( TO 10)="DONDE ESTA" 
THEN GO SUB 240 

170 IF AS$( TO 11)="DIME LO QUE" 
THEN (GO SUB 1050 

180 IF A$( TO 8)="REVUELVE" THE 
N GO SUB 1280 

190 IF A$( TO 6)="PON EL" THEN 
GO SUB 1500 

200 PRINT : PRINT : PRINT ">>PU 
LSA ""ENTER"" PARA CONTINUAR<<"«* 
PAUSE 300 

210 GO TO 40 

220 STOP 

230 REM 4316406636116 16 42640 1026 

240 REM "DONDE ESTA EL" 

250 LET P=0 

260 LET BS$=A5$ (22) 

270 IF B$="R" OR B$="4Y" OR B 
OR B$="A" THEN GO TO 3 


280 IF RND>.7 THEN GO TO 300 
290 PRINT "LO SIENTO, NO TENGO 
INFORMACION DE ESO": GO TO 310 
300 PRINT "NO TENGO DATOS CON L 
OS QUE PODER RESPONDERTE" 

310 RETURN 

320 REM 4361636169636 96 2H 00 20 MAA 

330 LET M=CODE B$ 
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340 PRINT TAB 8;3">DEJAME VER AH 
ORA<" 

350 LET X=5 

360 LET Y=1 
370 IF A(X,Y)=M THEN GO TO 410 
380 IF Y<6 THEN LET Y=Y+1:2: GO 
TO 370 

390 IF X>1 THEN LET X=X-1: GO 
TO 360 

400 GO TO 280 

410 IF X>1 THEN GO TO 910: REM. 

ESTA ENCIMA DE OTRO 

420 IF Y>1 THEN GO TO 530: REM 

NO ESTA A LA IZQUIERDA 

430 REM 3362-2636 16-26 36-26-16 366 426-262 46-10 H ME 

440 REM x*** A LA IZQUIERDA +1. 

450 PRINT "ESTA A LA IZQUIERDA" 

460 IF A(1,2)=46 THEN PRINT "N 
O HAY NADA INMEDIATAMENTE A SU D 
ERECHA": GO TO 790 

470 LET Q=A (1,2) 

480 PRINT 

490 PRINT "A SU LADO PUEDO VER 
EL BLOQUE" 

500 GO TO 2400 

520 GO TO 790 

530 IF Y<6 THEN GO TO 650 

540 REM 31636126 3616 36 3636-16 36-16 46 16 36 36 46 2-36 

550 REM *%* A LA DERECHA 43% 

560 PRINT 

570 PRINT "ESTA EN EL LADO DERE 
CcHo" 

580 IF A(1,5)=46 THEN PRINT "N 
O HAY NADA INMEDIATAMENTE A SU I 
ZQUIERDA": GO TO 790 

590 PRINT "A SU IZQUIERDA PUEDO 

VER EL BLOQUE"; 

600 LET 0Q=A(1,5) 

610 GO SUB 2400 

630 GO TO 790 

640 REM 34616463636 36-16-16 36-36-36 46-36-6630 HEHE 

650 REM 4% EN EL CENTRO 33% 

660 PRINT 

670 PRINT "ESTA EN LA CASILLA " 
3Y3" DE LA IZQUIERDA” 

680 IF A(X,Y-1)=46 THEN PRINT 
"NO HAY NADA INMEDIATAMENTE A SU 

IZQUIERDA": GO TO 730 

690 LET Q=A(X,Y-1) 

700 PRINT "EL BLOQUE "5 

710 GO SUB 2400 

720 PRINT " ESTA": PRINT "INMED 
IATAMENTE A SU IZQUIERDA" 

730 IF A(X,Y-1)=46 THEN PRINT 


"NO HAY NADA INMEDIATAMENTE A SU 
IZQUIERDA": GO TO 790 

740 LET Q=A(X,Y+1) 

750 PRINT : PRINT "PUEDO VER EL 
BLOQUE "3 

760 GO SUB 2400 

770 PRINT " A SU DERECHA, TOCAN 
DOLE" E 

780 REM 336362636 36-36-3636 36- 4040 I III 
790 REM x** ALGO POR ENCIMA? ++ 
800 PRINT 

810 LET P=X 

820 IF X=S THEN GO TO 910 

830 IF A(X+1,Y)=46 THEN PRINT 
"NO HAY NADA ENCIMA DE EL": GO T 
O 310 

840 PRINT 2: PRINT "ENCIMA ESTA 
EL BLOQUE "3 

850 LET Q=A(X+1,Y) 

860 GO SUB 2400 

880 LET X=X+1 

890 GO TO 820 

900 REM dd de de 16 16 6d M6 M6 IE M6 M6 HEHE AHHH 
910 REM ** ENCIMA DE OTRO? +*+* 
920 IF P<>0 THEN LET X=P 

930 PRINT 

940 IF X=1 THEN GO TO 310 

950 PRINT "ESTA INMEDIATAMENTE 


960 PRINT "ENCIMA DEL BLOQUE "3 
970 LET Q=A(X-1,Y) 

980 GO SUB 2400 

1000 LET X=X-1 

1010 IF X<2 THEN GO TO 310 

1020 GO TO 960 

1030 RETURN 

1040 REM 3616066261696 M6 MEE IMHE HN MEE 
1050 REM %* DIME LO QUE VES *+* 
1060 PRINT "EMPEZANDO DESDE LA D 
ERECHA" 

1070 LET Y=6 

1080 LET X=5 

1090 IF A(X,Y)<>46 THEN GO TO 1 
150 

1100 IF Y=1 AND X=1 THEN PRINT 
"FINALMENTE "5 

1110 IF X=1 AND A(X,Y)=46 THEN 
PRINT "...UN ESPACIO "3: IF Y>1 
THEN PRINT "LUEGO" 

1120 IF X>1 THEN LET X=X-1: GO 
TO 1090 

1130 IF Y>1 THEN LET Y=Y-1: GO 
TO 1080 

1140 RETURN 

1150 LET L=INT (RND+*2) 

1160 IF L=0 THEN PRINT "ESTA EL 
BLOQUE "3: GO TO 1190 

1170 IF L=1 THEN PRINT "MIS SEN 


SORES REGISTRAN EL BLOQUE "5: GO 
TO 1190 

1180 PRINT "VEO EL BLOQUE "5 
1190 LET Q=A(X, Y) 

1200 GO SUB 2400 

1220 IF X=1 THEN GO TO 1130 
1230 LET X=X-1 

1240 PRINT "...Y MAS ABAJO DE EL 


1250 GO TO 1180 

1260 RETURN 

1270 REM 4063626961662 MIA MIRRA 
1280 REM * REVUELVE BLOQUES + 
1290 PRINT 

1300 IF RND>.5 THEN  —INK 3: PRIN 
T TAB 7;"YA ERA HORA": GO TO 132 
o 

1310 INK 35: PRINT "ESTA BIEN QUE 
LE DEN A UNO LA OPORTUNIDAD "2 
PRINT TAB 4;5"DE HACER LO QUE QUI 
ERE!!!” 

1320 INK 7: FOR X=1 TO 5 

1330 FOR Y=1 TO 6 

1340 LET A(X,Y)=46 

1350 NEXT Y 

1360 NEXT X 

1370 LET Yi=INT (RND+*6)+1 

1380 LET Y2=INT (RND*6)+1 

1390 IF Y2=Y1 THEN GO TO 1380 
1400 LET Y3=INT (RND+*6)+1 

1410 IF Y3=Y1 OR Y2=Y3 THEN GO 
TO 1380 

1420 LET Y4=INT (RND*6)+1 

1430 IF Y3=Y4 OR Y4=Y1 OR Y2=Y4 
THEN GO TO 1380 

1440 LET A(1,Y1)=82 

1450 LET A(1,Y2)=86 

1460 LET A(1,Y3)=65 

1470 LET A(1,Y4)=78 

1480 RETURN 

1500 REM "PON EL BLOQUE. ..ENCIMA 
DEL BLOQUE..." 

1510 IF RND>.S THEN PRINT TAB 5 
3 "COMPRENDO": GO TO 1530 

1520 PRINT TAB 83"> DE ACUERDO" 
1530 LET B$=A$(15): REM BLOQUE O 
BJETO 

1540 IF B$="R" THEN LET L=38 
1550 IF B$="A" THEN LET L=38 
1560 IF B$="VY" THEN LET L=39 
1570 IF B$="N" THEN LET L=41 
1580 LET C$=A$ (L.) 

1590 LET B=CODE B$ 

1500 LET C=CODE C$ 

1610 LET FLAG=C 

1520 REM **ENCUENTRA EL BLOQUE B 
$ x** 

1630 LET X=5 
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16540 LET Y=1 

1550 IF A(X,Y)=B THEN GO TO 174 

[0] 

1660 IF Y<6 THEN LET Y=Y+1:2: GO 

TO 1650 

1670 IF X>1 THEN LET X=X-1: GO 
TO 1440 

1580 PRINT "NO PUEDO ENCONTRAR E 

L BLOQUE "3 

164790 LET Q=B 

1700 GO SUB 2400 

1720 FOR T=1 TO 200: NEXT T 

1730 RETURN 

1740 LET R=X: LET S=Y 

1750 REM x** EL BLOQUE ESTA EN R, 

S $. 

1760 REM +*%* ESTA VACIA LA CASILL 

A DE DESTINO? *+* 

1770 IF A(R+1,S)=46 THEN GO TO 
1920: REM "SI" 

1780 IF A(R+2,S)=46 THEN LET TA 

SkK=1: GO TO 1800 

1790 LET TASK=3: IF A(R+3,S)=46 

THEN LET TASK=2 

1800 FOR W=TASK TO 1 STEP -1 
1810 PRINT "DEBO MOVER EL BLOQUE 
"5 

1820 LET Q=A(R+W, S) 

1830 GO SUB 2400 

1850 LET DE=INT (RND+*6)+1 

1860 IF DE=S OR A(1,DE>)=C OR A(2 
,»DE)=C OR A(3,DE)=C THEN GO TO 
1850 

1870 PRINT "ESTOY MOVIENDOLO A L 
A COLUMNA ";DE 

1880 LET L=1 

1890 IF A(L,DE)>)=46 THEN LET A(L 
, DE)=A(R+W,S): LET A(R+W,S)=46: 

GO TO 1910 

1900 LET L=L+1:* GO TO.1890 

1910 NEXT W 

1920 REM LA CASILLA DE DESTINO E 

N R,S ESTA AHORA LIBRE 

1930 REM ESTA LIBRE LA CASILLA D 

E PARTIDA 

1940 REM ENCUENTRA EL BLOQUE 
1950 LET X=5 

1950 LET Y=1 

1970 IF A(X,Y)=C THEN GO TO 207 

Oo 

1980 IF Y<ó6 THEN LET Yz=Y+1: GO 

TO 1970 

1990 IF X>1 THEN LET X=X-1: GO 

TO 1960 

2000 PRINT "NO PUEDO ENCONTRAR E 

L BLOQUE "3 

2010 LET Q=C 

2020 GO SUB 2400 
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2040 FOR J=1 TO 200: NEXT J 
2050 RETURN 

2060 REM %* SE HA ENCONTRADO C + 
+ 

2070 LET T=X: LET U=Y: REM LOCAL 
IZACION DE C 

2080 IF A(T+1,U)=46 THEN GO TO 
2260 

2090 IF A(T+2,U)=46 THEN LET TA 
SK=1: GO TO 2110 

2100 IF A(T+3,U)=46 THEN LET TA 
Sk=2 

2110 LET DE=INT (RND*6)+1 

2120 IF DE=U OR DE=S THEN GO TO 
2110 

2130 FOR W=TASK TO 1 STEP -1 
2140 PRINT "AHORA MOVERE EL BLOQ 
UE "5 

2150 LET Q=A(T+W,U) 

2160 GO SUB 2400 

2180 PRINT 

2190 PRINT "ESTOY MOVIENDO A LA 
COLUMNA "3DE 

2200 LET L=1 

2210 IF A(L,DE)=46 THEN LET A(L 
,DE)=A(T+W,U): LET A(T+W,U)=46: 

GO TO 2230 

2220 LET L=L+1: GO TO 2210 

2230 NEXT W 

2240 REM LA CASILLA DE PARTIDA A 

HORA ESTA LIBRE 

2250 REM *ex REALIZA EL MOVIMIEN 
TO e 

2260 PRINT "AHORA ESTOY PONIENDO 
EL BLOQUE "; 

2270 LET Q=A(R,S): LET Z=A(R,S) 
2280 GO SUB 2400 

2300 PRINT " ENCIMA DEL BLOQUE " 


, 

2310 IF A(T,U)=46 THEN LET ACT, 
U) =FLAG 

2320 LET Q=A(T,U) 

2330 GO SUB 2400 

2350 LET A(R,S)=46 

2360 LET A(T+1,U)=Z 

2370 FOR J=1 TO 200: NEXT J 

2380 RETURN 

2390 REM 43662636 0666 26266 M6 HEHE 
2400 REM %** NOMBRE DEL COLOR +*+* 
2410 IF Q=CODE "R" THEN PRINT ” 
ROJO "; 

2420 IF Q=CODE "N" THEN PRINT " 
NARANJA "5 

2430 IF Q=CODE "A" THEN PRINT " 
AZUL "; 

2440 IF Q=CODE "V" THEN PRINT *” 
VERDE "53 

2450 RETURN 


2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 


ii 
REM sx INICIALIZACION 
CLS 

RANDOMIZE 

DIM A(5,6) 

FOR X=1 TO 5 

FOR Y=1 TO 6 

LET A(X,Y)=46 

NEXT Y 

NEXT X 


2560 
OQUE 
2570 
OQUE 
2580 
OQUE 
2590 
OQUE 
2600 


LET A(1,2)=CODE 
ROJO 

LET A(1,3)=CODE 
NARANJA 

LET A(1,4)=CODE 
AZUL 

LET A(1,5)=CODE 
VERDE 

RETURN 


"RR": 


"N"e 


"A": 


"”Yy"oe 


REM BL 
REM BL 
REM BL 


REM BL 
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DOCTOR 


10 REM *%* DOCTOR ++ 
15 BRIGHT 1: FLASH Oz PAPER 1: 
INK 7: BRIGHT O: BORDER 1: INVE 
RSE O: CLS 
20 GO SUB 1140: REM INICIALIZA 
CION 
30 PRINT : PRINT  INK 65 BRIGH 


40 POKE 23658,200: PRINT ">"3: 

INPUT X$: PRINT X$” 

SO IF X$="" THEN STOP : REM T 
ERMINAR APRETANDO "ENTER" 

60 PRINT 

70 IF X$=Z7$ THEN PRINT "POR F 
AVOR, NO SE REPITA": GO TO 30 

80 LET Z$=X$: LET X$=X$+" 

90 IF X$( TO 5)="ADIOS” THEN 
PRINT "ESPERO VERLE DE NUEVO": S 
TOP 

100 REM *%* BUSQUEDA DE FRASES C 
LAVE AL PRINCIPIO DE LA INTRODUC 
CION 3% 

110 LET L=0 

120 LET L=L+1 

130 LET LN=CODE C$(L,1)-40 

140 IF X$( TO LN-1)=C$(1,2 TO L 
N) THEN GO TO 360: REM SE HA EN 
CONTRADO LA FRASE CLAVE 

150 IF L<K THEN GO TO 120 

160 REM ** EL PROGRAMA LLEGA AQ 
UI EN EL CASO DE QUE NO SE HAYA 
ENCONTRADO UNA FRASE CLAVE AL PR 
INCIPIO DE X$% +x* 

170 REM +** AHORA SE BUSCAN PALA 
BRAS CLAVE DENTRO DE TODA LA FRA 
SE INTRODUCIDA ++ 

180 LET X$=" "+x$+" " 

190 LET M=LEN X$ 

200 LET L=0 

210 LET L=L+1 

220 IF L=M-1 THEN GO TO 800: R 
EM NO SE HA ENCONTRADO PALABRA C 
LAVE 

230 IF X$(L)=" " THEN GO TO 25 
o 

240 GO TO 210 

250 LET X=L+1 

260 LET Y=0 

270 LET Y=Y+1 

280 IF X$(X+Y)=" " THEN LET 05 
=X$(X TO X+Y): GO TO 300 

290 GO TO 270 


252 


300 LET N=0 

310 LET N=N+1 

320 IF Q$( TO LEN Q$)=C$(N,2 TO 
CODE C$(N,1)-40) THEN GO TO 71 
O: REM SE HA ENCONTRADO UNA PALA 
BRA CLAVE 

330 IF N<K THEN GO TO 310 

340 GO TO 210 

350 REM 4363696169616 16 M6 MIE IE IIA 
360 REM %** SE HA ENCONTRADO UNA 
FRASE CLAVE AL PRINCIPIO DE LA 
INTRODUCCION + 

370 LET T=INT (RND*3)+1 

380 IF T=1 THEN LET G$=D$ (L) 
390 IF T=2 THEN LET G$=E$(L) 
400 IF T=3 THEN LET G$=F$(L) 
410 REM x*%* SE VERIFICA SI LA FR 
ASE ACABA EN UN ASTERISCO. DE SE 
R ASI HAY QUE ANADIRLA ALGO MAS 
** 

420 LET FLAG=0 

425 FOR R=6S5 TO 1 STEP -1: IF G 
$(R)=" ”" THEN NEXT R 

430 IF G$(R)="x*" THEN LET FLAG 
=1: LET G$=6$( TO R-1) 

440 PRINT G$3" "5 

450 IF FLAG=0 THEN GO TO 30: R 
EM NO HAY QUE ANADIR NADA 

460 REM ** AHORA SE UTILIZA LA 
FRASE INTRODUCIDA ++ 

465 FOR R=LEN X$ TO 1 STEP -1: 
IF X$(R)=" " THEN NEXT R 

466 LET X$=X$( TO R) 

470 LET X$=" "+X$(LN+1 TO LEN X 
$)+" " 

480 REM 3326-3616 36 36 3636 26-26-96 36 36-36 16-16 26-16 HE I6 HE 
490 REM ** CAMBIOS DE CONJUGACI 
ON ¿ex 

500 REM * TAMBIEN SE BUSCA "MI" 
PARA LA CLAVE "MIFLAG"(K$) *%* 
510 LET LN=LEN X$ 

520 LET M=0 

530 LET M=M+1 

540 IF M=LN THEN GO TO 30 

550 IF X$(M)=" " THEN GO TO S57 


560 GO TO 530 

570 LET X=M+1 

580 LET Y=0 

590 LET Y=Y+1 

595 IF LEN X$<X+Y THEN LET X$= 
Xx $+ ”» "» 

600 IF X$(X+Y)=" " THEN LET Q$6 
=X$(X TO X+Y-1): GO TO 630 


610 IF X+Y>250 THEN GO TO 530 

620 GO TO 3590 

630 LET MN=0 

640 LET MN=MN+1 

650 IF Q$="MI" AND K$="" THEN 
LET K$=X$(X+3 TO LEN X$-4) 

660 IF Q$=A$(MN,2 TO CODE A$ (MN 
,1)-40) THEN PRINT B$(MN,2 TO C 
ODE BS$(MN, 1)-40)3" "52 GO TO 530 

670 IF MN<KK THEN GO TO 640 

680 PRINT 0$;3" "; 

690 GO TO 530 

700 REM 6-16 06 66-362 H0MIE III III 

710 REM ENCUENTRA PALABRA CLAVE 

720 LET T=INT (RND+*3)+1 

730 LET Qs6="" 

740 IF T=1 THEN LET Q$=D$ (N) 

750 IF T=2 THEN LET Q$=ES$ (N) 

760 1F T=3 THEN LET Q$=F$ (N) 

770 IF QS$(LEN Q$)="x*" THEN PRI 
NT Q$: GO TO 30 

780 REM ** SE PASA A LA SIGUIEN 
TE SECCION SI LA PALABRA CLAVE S 
E CONSIDERA NO VALIDA *+* 

790 REM 4636066062606 M6 ME IIA IIA 

800 REM RESPUESTAS ALEATORIAS/N 
O CLAVES 

820 LET T=INT (RND+8)+1 

850 IF T=1 THEN PRINT "QUE LE 
SUGIERE A USTED?": GO TO 30 

870 IF T=2 THEN PRINT "NO ESTO 
Y SEGURO DE COMPRENDER ESO POR C 
OMPLETO": GO TO 30 

890 IF T=3 THEN PRINT "NO SEA 
TAN ESCUETO, POR FAVOR ACLAREL 
O UN POCO MAS": GO TO 30 

910 IF T=4 THEN PRINT "ESO ES 
MUY INTERESANTE": GO TO 30 

930 IF T=5 THEN PRINT "BIEN,BI 
EN...POR FAVOR CONTINIJE...": GO 
TO 30 

950 IF T=6 THEN PRINT "POR QUE 
2": GO TO 30 

970 1F T=7 THEN PRINT "Y ENTON 
CES?":z GO TO 30 
990 IF T=8 THEN PRINT "YA VEO. 
. «POR FAVOR SIGA HABLANDO MAS SO 
BRE ELLO.": GO TO 30 
1010 REM ** UTILIZACION DE "MIFL 
AG" *. 

1020 LET T=INT (RND+*8)+1 

1030 IF T=1 THEN PRINT "HABLEMO 
S MAS SOBRE SU ";ks$ 

1040 IF T=2 THEN PRINT "AL PRIN 
CIPIO ME HABLO DE SU "5Ks$5".CUEN 
TEME ALGO MAS. " 

1050 IF T=3 THEN PRINT "TIENE A 
LGO QUE VER "3Kk$3">2" 


1060 IF T=4 THEN PRINT "EXISTE 

ALGUNA CONEXION CON "5Ks$35">2" 
1070 IF T=5S THEN PRINT "POR QUE 
NO RETROCEDEMOS UN POCO Y HABLA 

MOS MAS DE SU "3ks$3">2" 

1080 IF T=6 THEN PRINT "LE SUG 
IERE QUE EXISTA ALGUNA CONEXION 

ENTRE ESO Y SU "3ks$3">?" 

1090 IF T=7 THEN PRINT "PREFERI 

RIA HABLAR SOBRE SU "3ks$3">?" 
1100 IF T=8 THEN PRINT "CREO QU 
E EL PREOCUPARSE SOBRE SU "3ks$;" 
NO LE CONDUCE A NADA" 

1110 IF RND>.7 THEN LET Ks$="" 
1120 GO TO 30 

1130 REM 463696363696 46-26 26-6-2690 363640263626 262€ 
1140 REM ** INICIALIZACION ++%* 
1150 RANDOMIZE 

1160 CLS 

1180 DIM A$(16,20): DIM B$(16,20 
): REM CONJUGACIONES 

1190 DIM C$(45,16): DIM D$(45,65 
): DIM E$(45,65):2 DIM F$(45,65):2 
REM PALABRAS CLAVE Y RESPUESTAS 
1200 LET Zó$="":z REM PARA FINALIZ 
AR LAS REPETICIONES 

1210 LET K$="":2 REM "MIFLAG" 
1220 PRINT : PRINT 

1230 PRINT FLASH 15 PAPER 13 IN 
K 5;"EL DOCTOR ESTA EN LA CONSUL 
TA...POR FAVOR ESPERE" 

1240 LET Kk=0 

1250 LET KkK=kKK+1 

1260 READ A$(KK) , B$ (KK) 

1261 FOR R=14 TO 1 STEP -1:2 IF A 
$(KK,R)=" " THEN NEXT R 

1262 LET A$(KK)=CHR$ (R+41)+A$(K 
K, TO 19) 

1263 FOR R=14 TO 1 STEP -1: IF B 

$(KK,R)=" " THEN NEXT R 

1264 LET B$(KK)=CHR$ (R+41)+B$(K 

K, TO 19) 

1270 IF B$(KK,2)="%*" THEN GO TO 
1290 

1280 GO TO 1250 

1290 LET K=0 

1300 LET K=K+1 

1310 READ C$(K),D$(K) ,E$(K) ,F$(K 
) 

1311 FOR R=10 TO 1 STEP -1: IF C 

$(K,R)=" " THEN NEXT R 

1313 LET C$(K)=CHR$ (R+41)+C$(K, 
TO 14) 

1320 IF F$(K,1)="x*" THEN GO TO 

1340 

1330 GO TO 1300 

1340 CLS 
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1350 PRINT "BIENVENIDO A OTRA SE 
SION" 

1360 PRINT "CON EL DOCTOR..." 
1380 PRINT ” "HOLA..." 

1390 RETURN 

1400 REM 43636361636 36262662 

1410 REM %%e DATOS +. 

1420 REM %% CONJUGACIONES + 
1430 DATA "SOY","ES", "ERA", "ERA" 
, "YO", "USTED", "MI "su", "MIS", "s 
us" 

1440 DATA "USTED TIENE","YO TENG 
O”, "su”, "mI ”s "ES", "soy", "ME", "LE 


1450 DATA "USTED ESTA", "YO ESTOY 
» , "SUYO", "MIO", "USTED", "MI", "MI “ 
, "USTED" , e, pr 

1460 REM ** PALABRAS CLAVE/FRASE 
S DE RESPUESTA «** 

1470 DATA "NECESITO" 

1480 DATA "POR QUE NECESITA*" 
1490 DATA "NO SERIA REALMENTE PR 
OVECHOSO SI USTED*" 

1500 DATA "ESTA SEGURO DE QUE NE 
CESITA*" 

1510 DATA "POR QUE NO*" 

1520 DATA "PIENSA REALMENTE QUE 
YO NO+*" 


1710 DATA 
1720 DATA 
1730 DATA 
S*" 

1740 DATA 
1750 DATA 
1760 DATA 


.” SsoY 0) 
"DISFRUTA SIENDO*" 
"POR QUE ME DICE QUE E 


"POR QUE ES USTED+*"” 
"QUIERO" , 
"QUE SIGNIFICARIA PARA 


USTED SIx*" 


1770 DATA 
1780 DATA 


"POR QUE QUIERE+" 
"QUE SUPONDRIA EN SU Y 


IDA SI USTED CONSIGUIERA+*" 


1790 DATA 
1800 DATA 


1810 DATA 


AYUDARSE?" 


1820 DATA 
1830 DATA 
1840 DATA 
1850 DATA 
SPONDIESE 
1860 DATA 


” QUE » 
"POR QUE PREGUNTA ESO? 


"QUE RESPONDERIA PARA 


"QUE PIENSA USTED?" 

” COMO ” 

"COMO ARREGLARIA ESO?" 
"LO MEJOR SERIA QUE RE 
A ESO USTED MISMO” 
"QUE ES LO QUE REALMEN 


TE ESTA PREGUNTANDO?" 


1870 DATA 
1880 DATA 


"QUIEN" 
"SE HACE A MENUDO ESAS 


PREGUNTAS?" 


1890 DATA 


"QUE RESPUESTA LE DEJA 


RIA TRANQUILO?" 


1530 DATA "QUIZAS FINALMENTE YO+* 


1540 DATA 
YO* . 

1550 DATA 
1560 DATA 
CAPAZ DE+*" 
1570 DATA 
1580 DATA 
ENTADO LO 
1590 DATA 
1500 DATA 


"REALMENTE QUIERE QUE 


"POR QUE NO PUEDO" 
"CREE QUE USTED SERIA 


"POR QUE NO PUEDE+*" 
"QUIZAS NO LO HAYA INT 
SUFICIENTE" 

"ESTA USTED" 

"POR QUE ESTA INTERESA 


DO EN SABER SI YO SOY O NO+*" 


1510 DATA 
UERA+" 

1520 DATA 
SUENE QUE 
1630 DATA 
16540 DATA 


"LO PREFERIRIA SI NO F 


"QUIZAS ALGUNAS VECES 
SsOoY+" 

"NO PUEDO" 

"COMO SABE QUE NO PUED 


1900 DATA "QUIEN CREE USTED QUE+* 


1910 DATA "DONDE" 

1920 DATA "ESA ES UNA PREGUNTA B 
ASTANTE INGENUA" 

1930 DATA "NECESITA REALMENTE SA 
BER DONDE?" 

1940 DATA "QUE SUPONDRIA PARA US 
TED SI YO LE DIJERA DONDE+*" 

1950 DATA "CUANDO" 

1960 DATA "COMO PODRIA SABER CUA 
NDO+*" 

1970 DATA "NO ESTAMOS AQUI PARA 
DISCUTIR SOBRE EL TIEMPO" 

1980 DATA "LAS COSAS SUELEN OCUR 
RIR CASI SIEMPRE EN EL MOMENTO O 
PORTUNO” 

1990 DATA "POR QUE" 

2000 DATA "POR QUE NO ME DICE LA 


Ex" 
16550 DATA "LO HA INTENTADO?" 
1660 DATA "QUIZAS ,AHORA, USTED 
PUEDA" 

1570 DATA "YO ESTOY" 

1580 DATA "ACUDIO A MI PORQUE ES 
TAr*" ] 
1690 DATA "CUANTO TIEMPO HA ESTA 
DO* » 

1700 DATA "CREE QUE ES NORMAL ES 
TAR+*" 
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VERDADERA RAZON POR LA QUE+*" 


2010 DATA 


"QUE ES LO QUE HA DICH 


O QUE ME AYUDARIA A DECIRLE POR 


QUE+*" 


2020 DATA 


"NECESITA REALMENTE SA 


BER POR QUE+" 


2030 DATA 


2040 DATA 
AZON?" 
2050 DATA 
UERDA?" 


"PORQUE ” 
"ES ESA LA VERDADERA R 


"QUE OTRAS RAZONES REC 


2060 DATA "QUE MAS PUEDE EXPLICA 
R ESO?" 

2070 DATA "LO SIENTO” 

2080 DATA "EN QUE OTRAS CIRCUNST 
ANCIAS SE DISCULPA?" 

2090 DATA "HAY MUCHAS OCASIONES 
EN LAS QUE NO ES NECESARIO DISCU 
LPARSE" 

2100 DATA "QUE SENSACION EXPERIM 


2370 DATA 


"CUAL ES SU MEJOR RECU 


ERDO DE UN AMIGO?" 


2380 DATA 


"HABLEME MAS DE SUS AM 


ISTADES..." 


2390 DATA 
2400 DATA 


"AMIGOS" 
"EN QUE MODO LE AFECTA 


N LAS REACCIONES DE SUS AMIGOS?" 


2410 DATA 


"QUE LE HIZO COMENZAR 


ENTA CUANDO TIENE QUE DISCULPARS 


A HABLAR DE LOS AMIGOS, PRECISAME 
NTE AHORA?" 


E? " 


2110 DATA "HOLA" 

2120 DATA "HOLA...ME ALEGRO DE Y 
ERLE" 

2130 DATA "HOLA...ME ALEGRO QUE 


SE HAYA DEJADO CAER HOY POR AQUI 


2140 DATA "COMO ESTA USTED?...TE 
NIA GANAS DE QUE CHARLARAMOS DE 
NUEVO" 

2150 DATA "OIGA!" 

2160 DATA "ME ALEGRO DE VERLE HO 
Y POR AQUI" 

2170 DATA "ME ALEGRO DE QUE HAYA 
VENIDO. TENEMOS UN MOTON DE COS 
AS DE LAS QUE HABLAR" 

2180 DATA "ATIENDAME AHORA. RELAJ 


ESE... Y HABLEMOS UN POCO SOBRE S 
U SITUACION" 


2190 DATA "PUEDE SER” 

2200 DATA "PARECE VACILAR UN POC 
o" 

2210 DATA "PARECE BASTANTE INDEC 
ISO" 

2220 DATA "EN QUE OTRAS CIRCUNST 
ANCIAS SE MUESTRA TAN INDECISO?" 
2230 DATA "NO" 

2240 DATA "POR QUE SE MUESTRA TA 


N NEGATIVO SOBRE ESO?" 


2250 DATA 
UE ESO NO 
2260 DATA 


"ESTA USTED DICIENDO Q 
ES SER NEGATIVO?" 
"ES USTED BASTANTE IMP 


ULSIVO.QUE LE SUGIERE ESO?" 


2270 DATA 
2280 DATA 


"SIEMPRE" 


"POR FAVOR, DEME UN EJ 


EMPLO CONCRETO" 


2290 DATA 
MPRE? 
DATA 
DATA 
2320 DATA 
2330 DATA 


DATA 
DATA 
DATA 


"NO LE PARECE QUE SIE 


ES UN POCO EXAGERADO?" 


"CUANDO?" 

" CREO ” 

"” DUDA+* ”n 

"PIENSA REALMENTE ESO? 


"PERO NO ESTA SEGURO+*" 
"AMIGO" 
"POR QUE TOCA AHORA EL 


TEMA DE LOS AMIGOS?" 


2420 DATA 


"DE QUE MODO LE ENGANA 


N SUS AMIGOS?" 


2430 DATA 
2440 DATA 


"SI " 
"QUE TIPO DE MENTIRAS 


LE MOLESTAN?" 


2450 DATA 
ITIVO" 
2460 DATA 
ELLO" 
2470 DATA 
2480 DATA 


"ES USTED BASTANTE POS 
"PARECE MUY SEGURO DE 


"ORDENADOR" 
"QUE ES LO QUE SIENTE 


SENTADO AHI Y HABLANDOME COMO A 
UNA PERSONA?" 


2490 DATA 


"LO PIENSA SOBRE MI EN 


PARTICULAR?" 


2500 DATA 


"QUE ASPECTOS DE LOS O 


RDENADORES LE INTERESAN MAS?" 


2510 DATA 
2520 DATA 
2530 DATA 


ESTARIA+*" 


2540 DATA 
2550 DATA 
2560 DATA 


"ESTA" 
"PIENSA QUE ESTAR «*" 
"EN QUE CIRCUNSTANCIAS 


"BIEN PODRIA SER *" 
"” ES 1) 
“QUE GRADO DE CERTEZA 


DEPOSITARIA EN ELLO SIENDO+*" 


2570 DATA 
QUE ES*" 
2580 DATA 


"ESTA USTED SEGURO DE 


"QUE SENSACIONES EXPER 


IMENTARIA SI LE DIJERA QUE, PROBA 
BLEMENTE NO ES «+*" 


2590 DATA 
2600 DATA 


"PUEDE" 
"QUE LE HACE PENSAR QU 


E NO PUEDO*" 


2610 DATA "NO PIENSA QUE PUEDO+*" 
2620 DATA "QUIZAS LE GUSTARIA SE 

R CAPAZ DE+*" 

2630 DATA "PUEDO" 

2640 DATA "TAL VEZ NO QUIERA+*" 
2650 DATA "LE GUSTARIA SER CAPAZ 
DE* ” 

2660 DATA "LO DUDO" 

2670 DATA "SOY" 

2680 DATA "POR QUE PIENSA QUE SO 

Ye » 

2690 DATA "LE COMPLACE CREER QUE 
SOY+*" 

2700 DATA "TAL VEZ LE GUSTARIA S 

ER* . 
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2710 DATA 
2720 DATA 
TOY+*" 
2730 DATA 
ESTOY+*" 
2740 DATA 
Y ” 
2750 DATA 
2760 DATA 
2770 DATA 
2780 DATA 
DE + 0] 
2790 DATA 
2800 DATA 


"ESTA" 
"POR QUE PIENSA QUE ES 


"LE COMPLACE CREER QUE 
"POR QUE DICE QUE ESTO 
" YO NO ” 

"REALMENTE NO+*" 

"POR QUE NO+*" 

"LE GUSTARIA SER CAPAZ 


"SIENTO" 
"HABLEME MAS SOBRE ESO 


S SENTIMIENTOS" 


2810 DATA 
2820 DATA 


2830 DATA 
2840 DATA 


"SIENTE A MENUDO" 
"DISFRUTA SINTIENDOSE+ 


"SIENTO" 
"VAMOS A EXAMINAR ESA 


AFIRMACION MAS DETENIDAMENTE" 


2850 DATA 


"SE SIENTE NORMALMENTE 


DE ESE MODO?" 


2860 DATA 


"QUE EMOCIONES LE DESP 


IERTAN ESOS SENTIMIENTOS?" 


2870 DATA 
2880 DATA 
IENE+*" 

2890 DATA 
E TIENE+*" 
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"TENGO" 
"POR QUE ME DICE QUE T 


"PARA MI ESTA CLARO QU 


2900 DATA "COMO PODRIA AYUDARLE 

CON+*" 

2910 DATA "PODRIA" 

2920 DATA "PODRIA EXPLICARME POR 
QUE SERIA+*" 

2930 DATA "A QUIEN MAS LE HA DIC 

HO QUE USTED PODRIA+*" 

2940 DATA "QUE SEGURIDAD TIENE D 
E QUE PODRIA" 

2950 DATA "HAY" 

2960 DATA "POR SUPUESTO QUE HAY+* 
2970 DATA "ES COMO SI HUBIERA+*" 
2980 DATA "LE GUSTARIA QUE HUBIE 
RA*" 

2990 DATA "MI" 

3000 DATA "su" 

3010 DATA "YA VEO, SU+*" 

3020 DATA "QUE SIGNIFICA PARA US 
TED EL QUE SU+*" 

3030 DATA "USTED" 

3040 DATA "ESTA SESION ES PARA A 
YUDARLE....NO PARA QUE ANDEMOS D 
ISCUTIENDO" 

3050 DATA "QUE LE IMPULSO A DECI 


R ESO SOBRE MI?" 


3060 DATA 
ODO CUANTO DICE, 


"RECUERDE QUE ANOTO T 
PARA LUEGO PODE 


R AYUDARLE" 
3070 DATA men, en, ..n, . q” 


TRADUCTOR 


10 REM +%%%* TRADUCTOR +3 
15 POKE 23658,200 
20 GO SUB 9000: REM INICIALIZA 


25 FLASH O: BRIGHT 1: PAPER 1: 
INK 7: BRIGHT O: BORDER 12 CLS 
30 INPUT "ESCRIBE LO QUE QUIER 
AS TRADUCIR";A$: REM ACEPTA LA F 
RASE DEL USUARIO 
35 BEEP .2,1 
40 IF A$="" THEN STOP 
45 PRINT "?"3]A8 
SO INK 5: GO SUB 1000: INK 72 
REM TRADUCCION 
60 GO TO 30 
240 LET M=1 
980 STOP 
999 REM 462616616 M6 26 HA 
1000 REM %*%* TRADUCCION ++ 
1002 PRINT TAB 2;"-->"3 
1005 LET L=LEN A$: LET K=0 
1010 LET K=Kk+1 
1015 IF K=L THEN PRINT : PRINT 


1020 LET B$=" "+A$+" ": IF B$(K) 
=" " THEN GO TO 1200 

1030 GO TO 1010 

1200 LET X=kK+1 

1210 LET Y=0 

1220 LET Y=Y+1 

1230 IF B$(X+Y)=" " THEN LET Q$ 
=B$(X TO X+Y): GO TO 1240 

1235 60 TO 1220 

1240 LET M=0 

1250 LET M=M+1 

1260 IF Q$<>E$(M, TO LEN Q$) THE 
N (GO TO 1265 

1261 FOR G=15 TO 1 STEP -1:2 IF F 
$(M,G)=" " THEN NEXT G 

1262 PRINT F$(M,1 TO G)53" "52 GO 
TO 1280 

1265 IF M<COUNT THEN GO TO 1250 
1270 LET Q$=0$( TO LEN Q6-1): PR 
INT— FLASH 15065: PRINT " ”; 
1280 GO TO 1010 

8990 REM 461366216164 4610 II III 
9000 REM %** INICIALIZACION ++. 
9003 CLS 

9010 DIM E$(110,20): REM ALMACEN 
A LAS PALABRAS EN ESPANOL 

9020 DIM F$(110,20): REM ALMACEN 
A LAS PALABRAS EN INGLES 

9100 LET COUNT=0 

9105 LET COUNT=COUNT+1 


9110 READ ES(COUNT) ,F$ (COUNT) 
9120 IF FS$(COUNT,1)<>"*" THEN G 
O TO 9105 

9490 RETURN 

9500 REM + DATOS ** 

9510 DATA "YO","I","TU", "YOU", "U 
STED", "YOU", "ELLA", "SHE", "ELLO", 
"IT", "NOSOTROS", "WE", "VOSOTROS", 
"YOU", "ELLOS", "THEY" 

9520 DATA "EL", "THE", "LA", "THE", 
"Los" , "THE" , "LAS" , "THE" , "UN" , »”a" 
> "UNA", ”a" 

9530 DATA "MIO", "MINE", "TUYO", "Y 
OURS", "NUESTRO", "OUR", "VUESTRO", 
"YOUR" 

9540 DATA "SOY", "AM", "ERES", "ARE 
mo "ES", ” IS", "SOMOS”, "ARE", "SOIS" 
, ”» ARE ” , ” SON ”» 5 "” ARE dl 

9550 DATA "TENGO", "HAVE", "TIENES 
", "HAVE", "TIENEN", "HAVE" 

9560 DATA "HE", "HAVE", "HAS", "HAV 
E" , "HA ” , “ HAS ” , ” HEMOS ” , "” HAVE ” , ” HA 
BEIS","HAVE", "HAN", "HAVE" 

9570 DATA "COMIDO", "EATEN", "BEBI 
DO", "DRUNK", "TENIDO", "HAD", "SIDO 
BA "BEEN" 

9580 DATA .y. , ” AND » , ”e" , ” AND ” , "0 
.- "OR" ; "y" ; "or" $ "si" s "YES", "NO" ; 
"NO", "DE", "0F", "CON", "WITH", "EN” 
a "IN" 

9590 DATA "BRAZO", "ARM", "PIERNA" 
$ "LEG" , "OJO", "EYE", "CABEZA" , "HEA 
D", "DERECHA", "RIGHT", "IZQUIERDA" 
, "LEFT", "IZQUIERDO", "LEFT" 

9600 DATA "GINEBRA", "GIN", "VINO" 
, "WINE", "GUISKY", "WHISKY", "CERVE 
ZA", "BEER", "AGUA", "WATER" 

9610 DATA "PESCADO", "FISH", "POLL 
O", "CHICKEN", "PATO", "DUCK", "MOST 
AZA", "MUSTARD", "SAL", "SALT" 

9620 DATA "PATATAS FRITAS", "CHIP 
S", "FILETE", "STEAK", "SOPA", "SOUP 
", "HAMBURGUESA", "HAMBURGER" 

9630 DATA "CALIENTE", "HOT", "FRIO 
", "COLD", "TODO EL MUNDO", "EVERYB 
ODY" 

9640 DATA "MUSICA", "MUSIC", "CHIC 
0","BOY", "CHICA", "GIRL", "HOMBRE" 
, "MAN", "MUJER", "WOMAN", "POR FAVO 
R", "PI ZASE" 

9650 DATA "TTRRO", "DOG", "GATO", " 
CAT", "PAJARO", "BIRD", "CERDO", "PI 
G", "OVEJA", "SHEEP" 

9660 DATA "HOLA", "HELLO", "BUENOS 
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","G00D", "DIAS", "MORNING", "NOCHE 
S", "NIGHT", "ADIOS", "GOODBYE" 
9670 DATA "PUERTA", "DOOR", "CASA” 
, "HOUSE", "AMOR", "LOVE", "SOL", "SU 
N", "LUNA", "MOON", "POLICIA", "POLI 
CE u 

9680 DATA "CANCION", "SONG", "AMIG 
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os" > "FRIENDS" ó "MAR" á "SEA" , "CIGAR 
RILLOS", "CIGARETTES" 

9690 DATA "PADRE", "FATHER", "MADR 
E", "MOTHER", "HIJO", "SON", "HIJA", 
"DAUGHTER" 

9999 DATA ”¿” , . gn 


HANSHAN 


10 REM +* HANSHAN ++ 

15 CLS : CLEAR : BRIGHT 1: FLA 
SH O: INK 7: PAPER 1: BRIGHT Ox 
BORDER 1 

20 GO SUB 250: REM INICIALIZAC 


30 REM ELECCION DEL PATRON 

40 LET R=INT (RND+*3)+1 

50 GO SUB R*50+40 

60 LET KK=RND: IF KK>.65 THEN 
LET DD=RND*20-S: FOR G=DD TO DD 
+5: BEEP .1,3: BEEP .1,7: BEEP . 
1,-4: BEEP .1,G/2: NEXT G 

65 IF KK<.4 THEN FOR G=1 TO 5 
: BEEP .1,-7: BEEP .1,G*3: BEEP 
.2,-2: BEEP .5,3: NEXT G 

68 IF RND<.7 THEN FOR G=-S TO 
5: BEEP .1,G: NEXT G 

70 PRINT ??” 

80 GO TO 40 

90 REM ** PATRON UNO 4% 

100 PRINT W$(INT (RND*20)+1)3". 
.«."3WS$C(INT (RND*20)+1) 

110 PRINT TAB 53"...."3WS(INT ( 
RND+*20) +1) 

120 PRINT TAB 83S$(INT (RND*20) 
+1) 

130 RETURN 

140 REM %** PATRON DOS +. 

150 PRINT S$(INT (RND+*20)+1) 
160 PRINT TAB 3;S$(INT (RND*20) 
Dz...” 

170 PRINT TAB 6;5S$(INT (RND+*20) 
+1) 

180 RETURN 

190 REM +** PATRON TRES *+* 

200 PRINT TAB 3;3W$(INT (RND*20) 
+1) 

210 PRINT S$(INT (RND+*20)+1) 
220 PRINT TAB 3;3WS$ (INT (RND*20) 
+1)3", "3SS$(INT (RND*20)+1) 

230 RETURN 

240 REM 4406164646 262604660 

250 REM * INICIALIZACION +* 

260 CLS 

270 RANDOMIZE 

280 DIM W$(20,12): DIM S$(20,26 
) 

290 FOR J=1 TO 20 

300 READ W$(J) 


310 NEXT J 
320 FOR J=1 TO 20 


330 READ S$(J) 

340 NEXT J 

350 RETURN 

360 REM xxx DATOS 432 

370 REM * PALABRAS SUELTAS + 

380 DATA "ESCABULLENDOSE", "PISA 
NDO", "CONTEMPLANDO", "MARCHITO", " 
ESCULPIDO" 

390 DATA "ESCONDIDO", "CONF INADO 
","ATORMENTADO", "DOBLANDO", "RETO 
RCIENDO" 

400 DATA "GOLPEADO", "COLGANDO", 
"ENVOLVIENDO", "TRANSPARENTE", "CA 
NSADO" 

410 DATA "HACIA MI","CASCADA"," 
SACRIFICADOR","RESBALADIZO", "EN 
PEDAZOS" 

420 REM * FRASES CORTAS +* 

430 DATA "EN LA FRIA CORRIENTE" 

440 DATA "AJENO A LA BELLEZA" 

450 DATA "OLAS TRANQUILAS" 

460 DATA "FUERA, DESDE EL ABISM 
a] . 

470 DATA "SOMBRIO, SOMBRIO" 

480 DATA "INMERSO EN LA OSCURID 
AD .” 

490 DATA "COGI TUS POEMAS" 

500 DATA "APAGUE LA LAMPARA" 

510 DATA "SE ME CIERRAN LOS OJO 
Ss ” 

520 DATA "AQUELLOS LEJANOS DIAS 

530 DATA "LOS HOMBRES DE CIENCI 
A .” 

540 DATA "LOS HOMBRES DE ACCION 

550 DATA "ME APRESURO" 

560 DATA "POR QUE DESPERDICIARI 
AS ” 

570 DATA "CUANDO NOS ENCONTRARE 
MOS?" 

580 DATA "DURMIENDO UN POCO" 

590 DATA "Y CON MUCHA PENA” 

600 DATA "POR ESTOS POCOS PASOS 


610 DATA "AHORA, AL ANOCHECER" 
620 DATA "HICE PROVECHOSAMENTE 
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GRAN ESFUERZO 


REM _%** GRAN ESFUERZO ++ 
PAPER 1: INK 7: BRIGHT O: F 


LASH O: BORDER 1 
20 POKE 2358,200: CLS 
30 PRINT "QUIERO QUE PIENSES E 
N UN HOMBRE,UN CABALLO O UN GORR 
ION" 
SO PAUSE 400 
60 PRINT ?>” 
70 GO SUB 170: REM HACE LAS PR 
EGUNTAS 
80 PRINT ?3 INK 23" ---=-=--=--=-=-- 
100 PRINT ”"PULSE ""ENTER"" PAR 
A REPETIR O CUALQUIER TECLA 
Y DESPUES ""ENTER"" PARA FI 
NALIZAR" 
110 INPUT Q$ 
120 IF Q$<>"" THEN STOP 
140 CLS 
150 GO TO 30 
160 REM 4964642 26-26-2622 2616 2 HI III MAA 
170 REM +* HACE LAS PREGUNTAS + 
180 LET CONTADOR=0 
190 PRINT  INK 55"TIENE DOS PAT 
AS O DOS PIERNAS" 


260 


200 GO SUB 310 

210 PRINT  INK 55"PUEDE CAMINAR 
220 GO SUB 310 

230 PRINT INK 55"PUEDE VOLAR” 
240 GO SUB 310 

250 PRINT "ESTABAS PENSANDO EN 
UN "”s 

260 IF CONTADOR=1 THEN PRINT 
FLASH 13 INK 43"CABALLO" 

270 IF CONTADOR=2 THEN PRINT 
FLASH 153 INK 43 "HOMBRE" 

280 IF CONTADOR=3 THEN PRINT 
FLASH 13 INK 43"GORRION" 

290 RETURN 

300 REM 316364626462 36-36 36-326 36 36 36 36 36 26-36 36 46 33646 
310 REM SE PROCESA LA RESPUESTA 
320 INPUT " ?5” 0 *N”?2 "5Z 
$ 

330 IF Z$<>"N" AND Z$<>"S" THEN 

GO TO 320 

340 IF Z$="S" THEN LET CONTADO 
R=CONTADOR+1 

350 PRINT 

360 RETURN 


GRAN ESFUERZO-X 


10 REM %** GRAN ESFUERZO-X 3% 
15 POKE 23658,200: INVERSE O: 
FLASH O: BRIGHT 1: PAPER 1: CLS 
20 GO SUB 940: REM INICIALIZAC 
ION 
30 GO SUB 450: REM GANAR EXPER 
IENCIA 
40 GO SUB 120: REM DEMOSTRAR E 
XPERIENCIA 
50 GO SUB 1060 
60 PRINT "PULSE “"ENTER"" PARA 
OTRA VEZ O CUALQUIER OTRA TE 
CLA Y DESPUES ""ENTER"" PARA ABA 
NDONAR. " 
80 INPUT 0Q$ 
90 IF Q6="" THEN GO TO 40 
100 STOP 
110 REM 4303063616 26-26 16-36-2616 H6-6 M6 MIME 
120 REM *DEMOSTRAR EXPERIENCIA* 
130 CLS 
140 GO SUB 1060 
150 PRINT  INK 65 INVERSE 15"PI 
ENSE EN UNO DE LOS SIGUIENTES EL 
EMENTOS- "” 
160 FOR J=1 TO OUTCOMES 
170 PRINT TAB J+2;5 
180 IF J=0UTCOMES THEN PRINT " 


, 
190 PRINT A$(J) 
200 NEXT J 
210 GO SUB 1060 
220 LET RESULT=0 
230 LET X=.5 
240 PRINT "ENTRE ""SI"" O ""NO" 


250 FOR J=1 TO FACTORS 

260 LET X=X+X 

270 GO SUB 1060 

280 PRINT B$(J) 

290 INPUT ES 

300 IF E$="NO" THEN LET RESULT 
=RESULT+X 

310 NEXT J 

320 PRINT TAB 33 INK 33">MI RES 
ULTADO ERA "5RESULT 

330 GO SUB 1060 

340 LET M=0 

350 LET M=M+1 

360 IF D(M)=RESULT THEN GO TO 
400 

370 IF M<ODUTCOMES THEN GO TO 3 
50 

380 PRINT TAB 25 FLASH 13 INK 5 
3">>NO PUEDO IDENTIFICARLO<<";3 F 


LASH O: FOR R=S TO 10: BEEP .2,- 
4: BEEP .1,10-R: BEEP .1,-5: BEE 
P .1,-2: NEXT R 

390 RETURN 

400 PRINT TAB 5;"> ESTABAS PENS 
ANDO" 

405 FOR R=5 TO 10: BEEP .1,3: B 
EEP .3,-3: BEEP .1,R+5: NEXT Rz 
BEEP .3,20 

410 PRINT TAB 63" EN UN "5A$(M) 

420 GO TO 390 

430 RETURN 

440 REM 331463636 36-263 3 36-36-36 36 36-16-36 -46-46-H6-36-3€ 

450 REM x** LLENAR MATRICES ++ 

460 PRINT TAB (20-LEN N$/2)5N$ 

470 GO SUB 1060 

480 REM NOMBRE DE LOS ELEMENTOS 

490 FOR J=1 TO OUTCOMES 

500 GO SUB 1060 

510 PRINT "CUAL ES EL ELEMENTO 
Jj" ”s 

520 INPUT A$(J): PRINT 
$(J) 

S30O NEXT J 

540 CLS 

550 REM COGER CUESTIONES PARA P 
REGUNTARLAS 

560 FOR J=1 TO FACTORS 

570 GO SUB 1060 

580 PRINT "ENTRE LA PREGUNTA "5; 
J 

590 INPUT B$(J) 

600 NEXT J 

610 CLS 

620 REM +** ADQUIRIR EXPERIENCIA 

** 

630 FOR J=1 TO OUTCOMES 

640 CLS 

650 GO SUB 1060 

660 PRINT "RESPONDA A LA SIGUIE 
NTE PREGUNTA"?” "PARA EL ELEMENTO 
AMAS 3 "<" 

680 GO SUB 1060 

690 PRINT "ENTRE ""SI"" O ""NO" 

700 LET X=.S 

720 FOR K=1 TO FACTORS 

730 LET X=X+X 

740 GO SUB 1060 

750 PRINT TAB 43"> "5B$(K);5 

760 LET MULTI=0 

770 INPUT Y$ 

780 IF Y$="NO" THEN LET MULTI= 


INK 45A 
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790 LET D(J)=D(J)+X*MULTI 

800 NEXT K 

810 NEXT J 

820 CLS 

830 PRINT "ESTA ES MI EXPERTA B 
ASE: " 

840 FOR J=1 TO OUTCOMES 

850 GO SUB 1060 

860 PRINT A$(J)53" -—--"3D(J) 

870 NEXT J 

880 GO SUB 1060 

890 PRINT TAB 8;5"PULSE ""ENTER" 
900 INPUT Q5$ 

910 CLS 

920 RETURN 

DIO REM der M6 6d 66 HIERE 
940 REM %* INICIALIZACION 3% 
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950 CLS 

960 INPUT "NOMBRE DEL SISTEMA? 
"5NS$ 

970 GO SUB 1060 

980 INPUT "NUMERO DE ELEMENTOS? 
"5 O0UTCOMES 

990 GO SUB 1060 
1000 INPUT "NUMERO DE FACTORES A 
CONSIDERAR? "5FACTORS 

1010 DIM A$(OUTCOMES, 15): DIM B$ 
(FACTORS, 30) 

1020 DIM D(OUTCOMES) 

1030 CLS 

1040 RETURN 

1050 REM 416169616606 HH III III 
1060 PRINT : PRINT 
1070 RETURN 


ELECCION 
DE UN MICROPROCESADOR 


10 REM *+* ELECCION DE UN ++ 
+. MICROPROCESADOR + 
15 POKE 23658,200: FLASH O:z BR 
IGHT 12 INK 7: PAPER 1: BRIGHT O 
: BORDER 1: CLS 
20 GO SUB 580: REM INICIALIZAC 
ION 
30 GO SUB 450: REM MUESTRA EL 
CONTENIDO DE LA BASE DE DATOS 
40 GO SUB 120: REM IDENTIFICA 
EL MICROPROCESADOR 
50 GO SUB 720 
60 PRINT "PULSE ""ENTER"" PARA 
OTRO MICROPROCESADOR, 0" 
70 PRINT "CUALQUIER OTRA TECLA 
Y LUEGO ""ENTER"" PARA FINALIZA 
rR" 
80 INPUT Q$ 
90 IF Q$="" THEN GO TO 40 
100 STOP 
110 REM 4461636 46 36-146 36 36-46-36 36 36 26 36-46-16 4-4 26 3616 
. 120 REM IDENTIFICACION DEL MICR 
OPROCESADOR 
130 CLS 
140 GO SUB 720 
150 PRINT "PUEDO IDENTIFICAR LO 
S SIGUIENTES MICROPROCESADORES" 
160 FOR J=1 TO ELEMENTOS 
170 PRINT TAB J+2 
180 IF J=ELEMENTOS THEN PRINT 


190 PRINT  INK 4;5A$(J) 
200 NEXT J 
210 GO SUB 720 
220 LET RESULT=0 
230 LET X=.5 
240 PRINT "POR FAVOR INTRODUZCA 
” ».g" ” o ” "y" ”.w 
250 FOR J=1 TO FACTORS 
260 LET X=X+X 
280 PRINT ”B$(J) 
290 INPUT Es 
295 IF ES<>"S" AND E$<>"N" THEN 
GO TO 290 
300 IF E$<>"N" THEN LET RESULT 
=RESULT+X 
310 NEXT J 
320 PRINT TAB 33 INK 33"> MI RE 
SULTADO FUE "5RESULT 
330 GO SUB 720 
340 LET M=0 


350 LET M=M+1 

360 IF D(M)=RESULT THEN GO TO 
400 

370 IF M<ELEMENTOS THEN GO TO 
350 

380 FOR R=1 TO S: BEEP .1,R: BE 
EP .2,R+10: NEXT Rz PRINT TAB 35 
INK 55 FLASH 15">NOD PUEDO IDENT 
IFICARLO"5 FLASH O 

390 RETURN 

400 BEEP 1,-10: FOR R=1 TO 3: B 
EEP .2,6: BEEP .1,3: BEEP .1,2: 
NEXT R:z BEEP .5,7: PRINT TAB 53" 
EL QUE TU TIENES"”*TAB 83"ES "As 
(M) 

420 GO TO 390 

430 RETURN 

440 REM 334363 2636 36 16-36 36-36 36-36 36-36 36 36 36 46 36-36 He 
450 REM *%* MUESTRA EL CONTENIDO 
DE LA BASE DE DATOS *+%* 

460 CLS 

470 PRINT "ESTA ES MI BASE DE D 
ATOS:" 

480 FOR J=1 TO ELEMENTOS 

490 GO SUB 720 

500 PRINT A$(J)3" ---"5D(J) 

510 NEXT J 

520 GO SUB 720 

530 PRINT TAB 8;5"PULSA LA TECLA 

».u ENTER ..»0.¿. 

540 INPUT 0Q$ 

550 CLS 

560 RETURN 

570 REM 444646 46 6 9636363626 1626 46 36 26H IMA 
580 REM ** INICIALIZACION +*+* 
590 CLS 

600 RESTORE 

610 LET ELEMENTOS=6 

620 LET FACTORS=6 

630 DIM AS (ELEMENTOS, 17): DIM B 
$ (FACTORS,60): DIM D(ELEMENTOS) 
640 FOR J=1 TO ELEMENTOS 

650 READ A$(J),D(J) 

660 NEXT J 

670 FOR J=1 TO FACTORS 

680 READ B$(J) 

690 NEXT J 

700 RETURN 

710 REM 3633646 16-36 36-16 36-46 236 

720 PRINT : PRINT 

730 RETURN 
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A E AS 
750 REM NOMBRE DEL MICROPROCESA 
DOR 

760 DATA "TMS 9940 (NMOS)",44," 
68000 (NMOS)",12 

770 DATA "9940 (I3L)",56,"MN161 
O (NMOS)",46 

780 DATA "8086",60,"Z78001",28 
790 REM + PREGUNTAS +*%e 

800 DATA "ES LA LONGITUD DE PAL 
ABRA DE 32 BITS" 
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810 DATA "TIENE 64kK DE MEMORIA" 
820 DATA "ES LA FRECUENCIA DEL 
OSCILADOR DE S MHz O MENOR” 

830 DATA "EL TIEMPO DE EJECUCIO 
N MINIMO ES DE 3 MICROSEGUNDOS O 
MENOS" 

840 DATA "TIENE EL JUEGO DE INS 
TRUCCIONES MAS DE 71" 

850 DATA "TIENE EL INTEGRADO 40 
PATILLAS" 


APRENDE-SOLO 


10 REM %*x* APRENDE-SOLO + 
15 BRIGHT 1: FLASH Oz INK 7: B 
ORDER 1: BRIGHT O: PAPER 1: CLS 
20 GO SUB 400: REM INICIALIZAC 
ION 
30 REM *BUCLE MAYOR DE APRENDI 
ZAJE+* 
40 CLS 
50 FOR J=1 TO FACT 
60 LET C(J)=0 
70 NEXT J 
80 PRINT 
90 GO SUB 130 
100 GO TO 40 
110 REM 410966 636 462626 1636 362626326166 
120 REM x%** DEMOSTRACION ++ 
130 PRINT  INK 5;3"Ahora demostr 
are mi experiencia..." 
140 PRINT ” "Piense en uno de lo 
s elementos" 
145 PRINT 
150 FOR J=1 TO FACT 
170 PRINT — INK 5;"Es "5B$(J)5 1 
NK 73 BRIGHT 13" Verdadero?( ""S 
I .. o ”.. NO UNI] ) ” 
180 INPUT Z$ 
190 IF Z$<>"SI" AND Z$<>"NO" TH 
EN GO TO 180 
200 IF Z$="SI" THEN LET C(J)=1 
210 PRINT TAB 293 INK 45C(J) 
220 NEXT J 
230 LET BRAYN=0 
240 FOR J=1 TO FACT 
250 LET BRAYN=BRAYN+C(J)*D(J) 
260 NEXT J 
270 PRINT TAB 20;"> CEREBRO="5B 
RAYN 
280 IF BRAYN>=0 THEN PRINT "El 
elemento es "3A$(1): LET EX=-1 
290 IF BRAYN<O THEN PRINT "El 
elemento es "jA$(2): LET EX=1 


300 PRINT "Es esto correcto? (" 
"sI us o ”» "NO" ") 1] 

310 INPUT Z$ 

320 IF Z$<>"SI" AND Z$<>"NO" TH 
EN GO TO 310 

330 PRINT 

340 IF Z$="SI" THEN FOR R=1 TO 
5: BEEP .1,R: NEXT R: GO TO 380 
345 FOR R=-1 TO -S STEP -1: BEE 
P .1,R: NEXT R 

350 FOR J=1 TO FACT 

360 LET D(J)=D(J)+EX*C(J) 

370 NEXT J 

380 RETURN 

390 REM 4003646 2610616 16 6 46 HE AAA 
400 REM x*% INICIALIZACION +t%e 
410 CLS 

420 LET OTCO=2: REM NUMERO DE E 
LEMENTOS 

430 PRINT : PRINT 

440 INPUT "Cuantos factores ";F 
ACT 

450 DIM A$(0TCO,30): REM NUMERO 
DE ELEMENTOS 

460 DIM B$(FACT,30): REM NOMBRE 

DE LOS FACTORES 

470 DIM C(FACT): DIM D(FACT) 
480 CLS 

490 FOR J=1 TO FACT 

510 PRINT *"Entra el factor "3J 
, , 

520 INPUT B$(J): PRINT  INK 4;B 
$(J) 

530 NEXT J 

550 CLS 

S60 FOR J=1 TO OTCO 

580 PRINT *"Entra el elemento " 
3d; " "5 

590 INPUT A$(J):2 PRINT  INK 5;5A 
$(J) 

600 NEXT J 

610 RETURN 
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MULTI-APRENDE-SOLO 


10 REM * MULTI-APRENDE-SOLO + 
15 INVERSE O: POKE 23658,200: 
BRIGHT 1: FLASH O: PAPER 1: INK 
7: BRIGHT O: BORDER 1: CLS 
20 GO SUB 550: REM INICIALIZAC 
ION 
30 CLS 
40 PRINT "ESTOS SON LOS POSIBL 
ES ELEMENTOS: " 
50 PRINT 
60 FOR J=1 TO OCTO 
70 PRINT TAB J;¡As$(J) 
80 NEXT J 
90 PRINT 
100 PRINT "POR FAVOR PIENSE EN 
UNO DE ELLOS" 
110 PRINT 
120 PRINT "PULSE"; FLASH 15" EN 
TER"5 FLASH 053" CUANDO ESTE PREP 
ARADO" 
130 INPUT Z5$ 
140 CLS 
150 PRINT "POR FAVOR RESPONDA ” 
S” O ?N” A CADA UNA" 
160 PRINT "DE LAS SIGUIENTES PR 
EGUNTAS, RELACIONADAS" 
170 PRINT "CON EL ELEMENTO EN Q 
UE PIENSO." 
180 PRINT 
190 LET CONTADOR=0 
200 LET X=.5 
210 FOR J=1 TO FACT 
220 LET X=X+X 
230 PRINT F$(J) 
240 INPUT Z$: PRINT "2? "3 FLASH 
1324” 
250 IF Z$<>"S" AND Z$<>"N" THEN 
GO TO 240 
260 IF Z$="S" THEN LET CONTADO 
R=CONTADOR+X 
270 NEXT J 
280 LET X=0 
290 FOR J=1 TO OCTO 
300 IF CONTADOR=B(J) THEN LET 
x=J 
310 NEXT J 
320 IF X<>0 THEN GO TO 410 
330 LET X=INT (RND*OCTO)+1 
340 REM ** RECHAZA TODAS LAS RE 
SPUESTAS INCORRECTAS +*x* 
350 LET FLAG=0 
360 FOR J=1 TO OCTO 
370 IF B(J)=0 THEN GO TO 390 
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380 IF X=J AND CONTADOR<>B(J) T 
HEN  LET FLAG=1 

390 NEXT J 

400 IF FLAG=1 THEN GO TO 330 
410 PRINT "ESTABAS PENSANDO EN 
"5A$(X) 

420 PRINT 

430 PRINT "INTRODUZCA ”S” SI TE 
NGO RAZON, Y ”?N”? EN CASO CONTRARI 
o" 

440 INPUT Z$ 

450 IF Z$<>"S" AND Z$<>"N" THEN 

GO TO 440 

460 IF Z$="S" THEN LET B(X)=CO 
NTADOR: FOR R=1 TO S: BEEP .1,2e 
BEEP .1,5: BEEP .1,R:z GO TO 30 
470 FOR R=1 TO 4: BEEP .1,7: BE 
EP .2,8: BEEP .1,R*2: NEXT R:z PR 
INT "CUAL DEBERIA HABER SIDO LA 
RESPUESTA?" 

480 INPUT Z$ 

490 FOR J=1 TO OCTO 

500 IF A$(J, TO LEN Z$)=Z$ THEN 

LET B(J)=CONTADOR 

510 NEXT J 

520 GO TO 30 

530 STOP 

540 REM 3446463636 26-16 36 46-36 36 36 46 

550 REM INICIALIZACION 

560 CLS 

570 PRINT "CUANTOS ELEMENTOS? " 
3: INPUT OCTO 

580 PRINT  INK 550CTO” ” 

590 PRINT "CUANTOS FACTORES? "; 
: INPUT FACT 

600 PRINT  INK S55FACT?”*” 

610 LET X=0CTO+FACT 

620 DIM A$(0CTO, 30) 

630 DIM F$(FACT,30): DIM B(X) 
640 FOR J=1 TO OCTO 

650 PRINT "POR FAVOR INTRODUZCA 
EL NOMBRE DEL ELEMENTO"3J 

660 INPUT A$(J): PRINT  INK 43" 
2"59$(J) 

670 NEXT J 

680 CLS 

690 FOR J=1 TO FACT 

700 PRINT "POR FAVOR INTRODUZCA 
EL NOMBRE DEL FACTOR "53 

710 INPUT F$(J): PRINT  INK 43" 
2"5F$(J) 

720 NEXT J 

730 RETURN 


MULTI-APRENDE-SOLO 
VERSION DOS 


10 REM * MULTI-APRENDE-SOLO + 

A VERSION DOS AL 

15 BRIGHT 1: FLASH O: PAPER 1: 

INK 7: BRIGHT O: BORDER 1: CLS 
20 GO SUB 550: REM INICIALIZAC 


30 CLS 

40 PRINT  INK 33”"ESTOS SON LO 
S POSIBLES ELEMENTOS: " 

50 PRINT 

60 FOR J=1 TO OCTO 

70 PRINT TAB J; INK 45A$(J) 

80 NEXT J 

90 PRINT 

100 PRINT “POR FAVOR PIENSE EN 
UNO DE ELLOS" 

110 PRINT 

120 PRINT "PULSA "3 FLASH 1; 1 
NK 3; "ENTER"; INK 75 FLASH 03" C 
UANDO ESTES PREPARADO" 

130 INPUT Z5$ 

140 CLS 

150 PRINT "POR FAVOR RESPONDA ” 
s* O *N” A CADA UNA" 

160 PRINT "DE LAS SIGUIENTES PR 
EGUNTAS, RELACIONADAS" 

170 PRINT "CON EL ELEMENTO EN Q 
UE PIENSO" 

180 PRINT 

190 LET CONTADOR=0 

200 LET X=.5 

210 FOR J=1 TO FACT 

220 LET X=X+X 

230 PRINT BRIGHT 13F$(J) 

240 INPUT 27%: PRINT "2? "5 FLASH 

1328” 

250 IF 2$<>"S" AND Z$<>"N" THEN 

60 TO 240 

260 IF 2Z%$="S" THEN LET CONTADO 
R=CONTADOR+X 

270 NEXT J 

280 LET X=0 

290 FOR J=1 TO OCTO 

300 IF CONTADOR=B(J) THEN LET 
xX=J 

310 NEXT J 

320 IF X<>0 THEN GO TO 410 

330 LET X=INT (RND*OCTO)+1 

340 REM **RECHAZA TODAS LAS RES 
PUESTAS INCORRECTAS + 

350 LET FLAG=0 


360 FOR J=1 TO OCTO 

370 IF B(J)=0 THEN GO TO 390 
380 IF X=J AND CONTADOR<>B(J) T 
HEN LET FLAG=1 

385 IF C(X)=CONTADOR OR D(X)=CO 
NTADOR THEN LET FLAG=1 

390 NEXT J 

400 IF FLAG=1 THEN GO TO 330 
410 PRINT "ESTABAS PENSANDO EN 
"5As(X) 

420 PRINT 

430 PRINT "INTRODUZCA ”S” SI TE 
NGO RAZON, Y *N” EN CASO CONTRAR 
10" 

440 INPUT Z$ 

450 IF Z$<>"S" AND Z$<>"N" THEN 

GO TO 440 

460 IF Z$="S" THEN LET B(X)=C0O 
NTADOR: FOR R=1 TO S: BEEP .1,2: 
BEEP .1,5: BEEP .1,R: GO TO 30 
470 IF C(X)=0 THEN LET C(X)=CO 
NTADOR: GO TO 30 . 

520 LET D(X)=CONTADOR: GO TO 30 
530 STOP 

540 REM 44363646 23616362016 16d 

550 REM INICIALIZACION 

560 CLS 

570 PRINT "CUANTOS ELEMENTOS? " 
32 INPUT OCTO 

580 PRINT  INK S5;50OCTO”” 

590 PRINT "CUANTOS FACTORES? "5 
2 INPUT FACT 

600 PRINT  INK 5;5FACT?”” 

610 LET X=0CTO+FACT 

620 DIM A$(0CTO, 30) 

630 DIM F$(FACT,30): DIM B(X): 
DIM C(X):z DIM D(X) 

640 FOR J=1 TO OCTO 

650 PRINT "POR FAVOR INTRODUZCA 
EL NOMBRE DEL ELEMENTO "3J 

660 INPUT A$(J): PRINT  INK 43" 
2"54$(J) 

670 NEXT J 

680 CLS 

690 FOR J=1 TO FACT 

700 PRINT "POR FAVOR INTRODUZCA 
EL NOMBRE DEL FACTOR "33J 

710 INPUT F$(J): PRINT  INK 43" 
2" F$(J) 

720 NEXT J 

730 RETURN 
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ANAYA MULTIMEDIA 


Colección «MICROINFORMATICA» 


PROGRAMACION AVANZADA EN BASIC. - Bishop, P. 

PASCAL A PARTIR DEL BASIC.—Brown, P. 

EL ORDENADOR PERSONAL: COMO ELEGIRLO Y UTILI- 
ZARLO.-—Cavalcoli, A. 

PROGRAMACION EN BASIC: UN METODO PRACTICO.-— 
Dachslager, H.; Hayashi, M.; Zucker, R. 

TU PRIMER LIBRO DEL ZX SPECTRUM.-—Dewhirst, J.; 
Tennison, R. 

ASTRONOMIA: EL UNIVERSO EN TU ORDENADOR (ZX 
Spectrum). —Gavin, M. 

EL ORDENADOR Y TUS HIJOS. —Hammond, R. 

EL LIBRO GIGANTE DE LOS JUEGOS PARA ORDENA- 
DOR.—Hartnell, T. 

BITS Y BYTES: INICIACION A LA INFORMATICA. -—Hel- 
ler, R. S.; Martin, C. D. 

MICROINFORMATICA. Conceptos básicos. —Hollerbach, L. 

DESCUBRE LAS MATEMATICAS CON TU MICRO.—John- 
son, D. 

EL ORDENADOR EN EL AULA. —Pentiraro, E. 

EL LIBRO DEL BASIC.—Zaks, R. 


DISEÑO DE GRAFICOS Y VIDEOJUEGOS (ZX Spectrum). — 
Angell, |. O.; Jones, B. Y. 

MATEMATICAS DIVERTIDAS EN BASIC. —Kosniowski, C. 

INTELIGENCIA ARTIFICIAL. CONCEPTOS Y PROGRA- 
MAS. — Hartnell, T. 

¿QUE ES LA TELEMATICA? Nuevas tecnologías en la socie- 
dad de la información. —Servello, F. 

COMO SE PROGRAMAN LOS ORDENADORES. Programa- 
ción estructurada básica. —De Rosso, V. 

«SPRITES» Y GRAFICOS EN LENGUAJE MAQUINA (ZX 
Spectrum). —Durst, J. 

EL LIBRO GIGANTE DE LOS JUEGOS PARA ZX SPEC- 
TRUM. — Hartnell, T. 

LENGUAJE MAQUINA AVANZADO (ZX Spectrum).— 
Webb, D. 

LOS ORDENADORES NO MUERDEN.—Coccione, L.; Win- 
ter, G. 


NOTAS 


NOTAS 


La Inteligencia Artificial es el estudio de la inteligencia humana usando 
los métodos de la Informática. Su objetivo es lograr que los ordenadores 
se comporten como si pensasen. 


INTELIGENCIA ARTIFICIAL. CONCEPTOS Y PROGRAMAS, investiga.el 
mundo apasionante de la inteligencia artificial con algunos de los 
ejemplos más famosos: 


SILOGISMOS: Un programa que razona. 
TICTAC: Un juego de TRES EN RAYA que aprende a medida 
que juega. 
BLOQUELANDIA: Un programa que se cecmunica con nosotros en 
castellano. y 
DOCTOR: La versión BASIC más sofisticada que se ha , 
publicado nunca del famosísimo ELIZA. se 
TRADUCTOR: Un programa que traduce del español al «spanglish». k 
HANSHAW: Un poeta automático. va 


APRENDE-SOLO: Un sistema experto que aprende. 


INTELIGENCIA ARTIFICIAL CONCEPTOS Y PROGRAMAS, te lanza a una 
aventura fascinante en un reino donde se difuminan las barreras entre el 
hecho científico y la ciencia ficción. 


¿Puede una máquina pensar realmente?... Acompaña a Tim Hartnell en 
este apasionante libro hasta encontrar la respuesta. 
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